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SUMMARY 

The  HULL  system  was  Initiated  In  1971  at  the  Air  Force 
Weapons  Laboratory  (AFWL)  as  a successor  to  the  SHELL 
code  to  solve  atmospheric  response  to  nuclear  weapons.  In 
1973,  the  code  was  modified  to  handle  stress,  strain  and 
discontinuous  material  interface  for  use  in  calculations 
involving  conventional  weapons  design  at  the  Air  Force 
Armaments  Laboratory  (AFATL). 

The  HULL  system  uses  SAIL  as  its  preprocessor  to 
select  the  required  code  for  the  problem.  The  program 
PLANK  is  used  to  read  the  input  for  the  problem  and  the 
problem  dump  tape  (for  HULL  or  PULL),  and  provide  the 
information  that  is  needed  by  SAIL  to  select  the  necessary 
code. 

For  the  HULL  system  operating  at  the  Air  Force 
Weapons  Laboratory  and  the  Air  Force  Armaments  Labor- 
atory, the  program  BOW  is  used  to  monitor  the  tapes  used 
for  the  problem  and  to  keep  a record  of  their  use. 
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This  manual  was  prepared  in  conjunction  with  HULL 
calculations  performed  for  the  Elastic-Plastic  HULL 
Analytical  Modeling. 
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contributions  of  Major  Daniel  A.  Matuska  and  Major 
Richard  E.  Durrett  to  the  HULL  system,  and  the  assis- 
tance in  preparing  this  guide  that  was  received  from 
Dr  . Paul  Lewis,  Dr.  Mark  Fry,  and  Dr.  Clifford 
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SECTION  I 
INTRODUCTION 

This  manual  describes  the  use  of  the  HULL  system.  HULL  is  a system  of 
computer  programs  which  approximate  the  solutions  to  the  equations  of  continuum 
mechanics.  The  approach  is  effectively  Eulerian  in  that  the  computational  mesh 
is  not  distorted  with  time.  The  technique  consists  of  a Lagrangian  calculation  where 
the  velocily,  density  and  energy  are  updated  from  time,  t,  to  t + ^t  using  the  total 
derivatives,  followed  by  a fluxing  or  rezone  calculation  of  t + ^t  to  retain  the  origi- 
nal mesh  conffguration. 

Development  of  the  HULL  code  began  in  i.S7l  at  the  Air  Force  Weapons  Labora- 
tory (AFWL).  The  code  was  a successor  to  the  SHELL  code  and  was  initially  used  to 
handle  calculations  of  atmospheric  response  to  nuclear  weapons.  Ma  jor  Daniel  Matuska, 
USAF,  developed  a stable  difference  technique  to  replace  the  method  used  in  SHELL. 
Most  of  the  early  calcvilations  were  made  using  only  one  material,  air,  although  it 
was  structured  to  handle  multimaterial  problems. 

During  the  development  of  the  HULL  code  auxiliaiy  routines  were  written  which 
initialized  a problem  and  plotted  the  results  of  a calculation.  In  addition,  capability 
to  perform  calculations  including  radiation  diffusion,  high  e;qolosive  bum  and  magnetic 
fields  were  added. 

In  1973,  the  HULL  code  began  running  calculations  at  the  Air  Force  Armament 
Laboratory  (AFATL)  involving  conventional  weapon  design.  Major  Matuska  extended 
the  difference  method  of  bandUng  stress,  strain,  material  interfaces  and  failure.  The 
architecture  was  also  modified  to  conform  more  to  the  vector  structure  of  fourth 
generation  computers,  such  as  the  Cray-1  and  STAR  100. 


1.  BASIC  EQUATION 


HULL  solves  the  continuiun  mechanics  differential  equation  which  describes  the 
behavior^ of  linear  elastic-plastic  material.  The  basic  equations  in  tensor  form  are 


P+  /JU 


i,i  = 0 


PE  - (T,.  u,\  . (3) 

\ ij  j/,i  = PUjgj 

which  reflect  the  conservation  of  mass,  momentum  and  energy,  respectively.  The 
quantities  in  the  equations  are 

3 

p - material  density  (g/cm  ) 

u - material  velocity  vector  (cm/s) 

3 2 

T - stress  tensor  (d)mes/cm  ) 

3 

gj  - body  force  due  to  gravity  (cm/ s ) 

E - total  speclflc  energy  (ergs/g) 

The  dot  Implies  the  total  (Lagranglan)  derivative  with  respect  to  time. 

Considering  the  definition  of  E and  the  deviator  representation  for  T^,  we  have 


E = I + 1/2  Uj  Uj 


! ( 


T,J  = Sy  - iyP  ,5) 

2 

where  I is  the  internal  specific  energy  (erg/g),  p is  the  hydrostatic  pressure  (d3rnes/cm  ) 
obtained  from  the  equation  of  state  p(P,  I),  is  the  stress  deviator  tensor  which  is 
obtained  by  solution  of 


(6) 


where  G is  the  bulk  modulas  and, 

) * “j.  i)  <’> 


Subject  to  the  von  Mises  yield  criterion  to  Include  plasticity  which  states 


S 


Ij 


where 


Vi)  - 


2X1 
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(8) 


where  y is  the  yield  or  flow  stress.  The  deviator  then  has  the  form 


2y» 

3 


(9) 


Finally,  failure  occurs  when  the  maximum  principal  stress  (the  maximum  root  a 
of  =0)  exceeds  the  tensile  stress  criteria  for  the  material. 

If  we  assume  cylindrical  symmetry,  the  equations  become 


p + p 


- -I?]  =» 


(10) 
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here  r is  the  radial  coordinate 
z is  the  axial  coordinate 
u is  the  radial  velocity  component 
V is  axial  velocity  component 

g is  body  force  due  to  gravity  in  downward  direction  (i.e. , g 
The  only  nonzero  components  of  the  stress  tensor  are 


The  yield  criteria  become 


(24) 


with 


=0 


J = f s*  + s*  + s*  + s s 

rr  rz  zz  rr  zz, 


and 


Saff- 


= S, 


'00 


J > 1/3  y* 


(25) 


(26) 


Finally,  failure  occurs  when  a > » where 


(27) 


and  <T  . is  the  tensile  yield  strength  for  the  material, 
rrac 

It  is  not  die  purpose  of  this  guide  to  discuss  the  finite  difference  techniques. 
These  are  discussed  in  a separate  publicati<m . * 


*The  HULL  Code,  A Finite  Difference  Solution  to  the  Equations  of  Continuum 
Mechanics,  Air  Force  Armaments  Laboratory,  EgUn  AFB,  FL,  to  be  published 


2. 


OVERVIEW 


This  guide  consists  of  seven  sections.  Section  II  discusses  the  system  utilities 
used  by  the  HULL  system.  Section  m discusses  the  HULL  Z BLOCK  and  other  control 
functions.  Section  IV  describes  the  format  of  the  mesh  in  core  and  the  format  of  all 
tapes.  Section  V discusses  the  use  of  KEEL  to  initialize  a HULL  problem.  Section  VI 
describes  how  a HULL  calculation  is  run.  Section  VH  describes  how  to  plot  the  HULL 
data  using  PULL. 

There  are  three  appendixes:  appendix  A lists  and  describes  all  of  the  utility 
routines  used  in  the  HULL  system;  appendix  B lists  sample  procedures  for  HULL  on 
CDC  nos/be  operating  cycles;  and  appendix  C lists  procedures  for  running  HULL 
on  the  IBM  360/370  systems. 


SECTION  II 


SYSTEM  UTILITIES 

Users  of  the  HULL  system  will  soon  become  acquainted  with  the  utilities  used 
by  HULL.  There  are  three  (two  on  IBM  systems)  utility  programs  used  in  HULL 
problems  anH  a library  of  general  purpose  subroutines  that  are  used  by  all  of  the 
programs  In  the  system.  Therefore,  these  routines  must  be  maintained  or  the  sys- 
tem will  not  function  properly.  The  utility  programs  are  SAIL,  BOW  (not  used  on 
IBM  systems)  and  PLANK.  A typical  HULL  run  Includes  execution  of  each  of  the 
utilities  In  addition  to  the  main  program. 

The  procedures  used  for  operation  and  maintenance  of  the  HULL  system  must 
be  adapted  to  the  machines  «nd  operating  systems  available.  Representative  examples 
of  control  statement  sequences  are  presented  in  following  subsections  as  guides  for 
users  in  development  of  procedures  for  Individual  installations.  Unless  otherwise 
specified,  examples  of  CDC  usage  are  for  a CDC  6600/ Cyber  176  installation  using 
the  nos/be  operating  system.  IBM  examples  are  for  IBM  370/168  using  OS/US2— 
Version  2. 


1,  SAIL  UTILITY 

The  SAIL  preprocessor  program  is  used  to  generate  the  HULL  program  and  all 
other  utilities.  SAIL,  itself.  Is  maintained  on  a separate  SAIL  library  flle  for  gener- 
ation and  modification.  When  running  on  an  existii^  HULL  system,  tli«  user  need 
only  access  the  current  load  module  for  SAIL  or  generate  a new  load  module  by 
running  the  current  SAIL  program  to  generate  a new  version  of  SAIL.  In  order  to 
initiate  SAIL  usage  at  a new  installation,  the  source  code  of  SAIL  for  the  particular 
computer  must  be  generated  at  an  installation  where  SAIL  is  currently  running.  The 
I source  code  and  the  SAIL  Ubrary  fUe  of  the  SAIL  program  then  provide  the  new  user 


with  the  capability  to  use  and  maintain  SAIL. 


f 
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Since  the  SAIL  program  and  most  of  its  inputs  are  described  in  another  docu- 
ment*, only  the  additional  feature  of  the  alternate  input  file  will  be  discussed  here. 
The  user  should  acquaint  himself  with  SAIL  before  attempting  to  utilize  the  SAIL 
alternate  input  fUe. 

The  SAIL  program  receives  its  initial  instmctions  from  the  primary  input  file 
(called  INPUT  by  SAIL),  the  SAIL  mode  is  NORMAL,  the  program  searches  the 
alternate  Input  file  (this  is  a LFN  of  INPUT2  on  a CDC  system  and  DONAME  of 
FT09F001  on  an  IBM  system).  If  there  is  nothing  in  the  file  (file  does  not  exist  on 
CDC  or  is  dummied  on  IBM),  then  SAIL  proceeds  as  the  primary  input  data  has 
instructed  it.  If,  however,  there  is  data  in  the  alternate  input  file,  then  the  program 
uses  the  OPTION  directive  to  charge  or  add  option  In  the  option  list,  the  PROGRAM 
directive  to  specify  the  selected  programs  or  the  PROSNAME  directive  to  specify  the 
prc^am  for  which  code  is  to  be  generated  (aU  other  prc^ams  will  be  processed  for 
PROCS).  The  OPTION  directive  overrides  any  settings  of  the  same  options  from  the 
primary  input  file  and  if  PROGRAM  or  PROSNAME  Is  used,  only  the  programs 
specified  with  the  diioctives  in  the  alternate  input  file  are  selected.  Figure  1 shows 
the  syntax  of  the  alternate  input  file. 

2.  HULL  GENERATION 

The  remainder  of  the  HULL  system  (except  for  some  utility  subroutines)  is 
maintained  cm  a HULL  system  SAIL  library  file.  To  generate  a new  or  to  update  a 
HULL  system,  the  utility  programs  must  be  generated.  Figure  2 shows  the  typical 
secjuence  of  commands  to  generate  the  HULL  utilities  on  a CDC  6600/Cyber  176 
assuming  the  SAIL  utilities  are  in  a Ubrazy  called  HULLIB  as  shown  and  that  the 
system  uses  the  tape  library.  Figure  3 shows  the  similar  generation  of  the  system 
for  IBM  computers.  (Appendix  C descrcibes  the  procedures  HLIB  and  PGEN.) 


* SAIL:  An  Automated  Approach  to  Software  Development  and  Management.  Air 
« j Force  Weapohs  Laboratoiy,  AF>^'L-TR-78-80  to  be  published. 
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OPTION 

PROGRAM 

PROSNAME 


optname  value 

pgname 

psname 


where 

optname 

value 

pgname 

psname 


option  name 
option  value 
program  name 

name  of  program  to  be  processed 


Figure  1.  SAIL  Alternate  Input  Syntax. 


ATTACH(HULLIB,  rD=DYTHULL) 

UBRARY(HULLIB) 

DYTHUL, 

FTN(I=SAIL,  OPT=2,  PL=100000, 0,B=BOW) 

FTN(T=SAIL,  OPT=2,  PL=1 000000,  B=PLANK) 

FTN(A , I=SAIL,  OPT=2 , S , S=PFMTEXT , B=UB) 

REQUEST  (NEWU  B,  XPF ) 

EDITUB 

UBRARY(NEWUB) 

LOAD(BOW) 

NOLD(BOWF,  BOW,  STERN) 

LOAD(PLANK) 

NOLD(PLANKF,  PLANK) 

UBRARY. 

EDITUB. 

CATALOG(NEWUB,  HULUB,  ID=DYTHULL,  PW=XXXX,  RP=999) 

EOR 

SAIL  PROGRAM  BOW  PLANT  UBRARY  ENDPROGPAM 


SAlL(chaQges) 


EOR 

UBRARY(NEWUB,  NEW) 

ADD(SAILM,  HULUB,  AL=1, LIB) 

ADD(COMPR,  HULUB,  UB) 

ADD(GETNUM,  HULUB,  UB) 

ADD(GTWD,  HULUB,  UB) 

ADD(STOR),  HULUB,  LIB) 

ADD(INTEG,  HULLIB,  UB) 

Figure  2.  CDC  HULL  Generation(continued) 


ADD(STORN,  HULLIB.LIB) 
REWrND(LIB) 

ADD(*,LIB) 

FINISH. 

END  RUN. 

EOR 

UBRARY(NEWUB,  OLD) 
REWIND(BOWF) 
ADD(*,BOWF,AL=l) 
REWIND(PLANKF) 

ADD{* , PLANKF,  AL=1) 

EOR 


Figure  2.  Continued 


//....  JOB.  • . 

//LIB  EXEC  HLIB 

//SAIL.  INPUT  DD  * 

SAIL  PROGRAM  LIBRARY  ENDPROGRAM 


SAIL  (changes) 


/* 

//PLANK  EXEC  PGEN 
//SAIL.  INPUT  DD  * 

SAIL  PROGRAM  PLANK  ENDPROGRAM 

/* 


Figure  3.  IBM  HULL  Generaticm. 


3. 


HULL  SYSTEM  EXECUTION 

The  executton  sequence  for  HULL  is  shown  In  figures  4 (CDC)  and  5 (IBM). 

On  a CDC  system  BOW  reads  the  input  to  determine  the  type  of  HULL  run 
(KEEL,  HULL  or  PULL).  Identifiers  for  data  t^es  needed  for  the  problem  and  the 
ZBLOCK  (a  table  of  problem  parameters  for  the  problem  are  written  on  file  TAPE41. 

If  there  is  no  ZBLOCK  for  the  problem  in  the  tape  library,  the  required  data  tape  Is 
requested.  PLANK  reads  the  ZBLOCK  from  TAPE41  file  or  the  problem  tape  and 
the  input  to  set  up  the  options  needed  for  the  problem  and  generates  an  INPUT2 
record.  SAIL  then  reads  the  SAIL  Input,  the  HULL  system  SAIL  file  and  INPUT2 
and  produces  the  appropriate  source  code  on  the  file  SAIL.  This  source  code  is 
compiled  to  produce  the  executable  code  for  HULL,  which  reads  the  data  tapes 
(requestii^  them  as  needed)  and  performs  the  requested  function  (initialize  problem, 
run  problem,  or  plot  problem). 

In  IBM  systems,  PLANK  reads  the  Input  and  data  tape  (for  HULL  and  PULL  runs) 
awH  generates  a SAIL  alternate  input  file.  Then  SAIL,  using  the  SAIL  input  and  alter- 
nate liqnit  file,  generates  the  source  code  which  is  compiled  and  executed. 

The  representative  control  cards  for  HULL  runs  on  the  IBM  and  CDC  systems 
are  shown  in  figures  6 and  7,  respectively.  (The  description  of  IBM  procedure  HULL 
is  shown  In  appendix  C.) 

4.  HULL  UTILITY  ROUTINES 
4. 1 HULL  Tape  Library 

On  some  CDC  systems,  the  t^es  used  by  the  HULL  problems  are  managed  by 
the  tape  library  program  BOW.  The  tape  library  index  file  contains  one  three-word 
header  record  with  the  format  shown  in  figure  8,  followed  by  a variable  munber  of 
1000-word  problem  records,  are  shown  in  figures  9-11,  ending  with  one  1000-word 
resource  record  as  shown  in  figure  12. 


Figure  5.  IBM  HULL  Execution 


JOB, 


ATTACH,  HULLIB,  ID=  EYTHULL. 

LIBRA  RY(HULLIB) 

BOW. 

PLANK. 

DYTHUL. 

REQUEST  (SAVE,  ♦Q) 

nN(l=SAIL,  B=HULL,  PL=1000000,  L=SAVE,  OPT=2) 
REQUEST  (MAP,  *Q) 

LDSET(MAP=SBEX/MAP,  PRESETA=NGINDEF) 
HULL. 

EMT(S) 

DISPOSE  (SAVE,  PR) 

DISPOSE  (MAP,  PR) 

*EOR 

SAIL 


//****  JOB 
//HULL  EXEC  HULL 

//HULL. DATA  DD  'HULL  dump  t^e  data  set. ' 

//HULL. STATION  DD  'HULL  station  tape  data  set. ' 

'Must  be  diunmied  if  not  needed 

//HULL.  INPUT  DD  ♦ 

HULL 

HULL  ii^ut 

/* 


Figure  7.  IBM  JCL  for  HULL  Execution 
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Word 


17 


0 


59 


1 

PROB 

2 

Problem  number 

3 

CYCLE  - if  previous  run  was  a cycle  start 
blank  - if  not 

4 

TIME  - if  p'*evious  nm  was  a time  start 
blank  - if  not 

5 

Cycle  start  on  last  run 
-1. 0 - if  not  a cycle  start 

6 

Time  start  on  last  run 
-1. 0 - if  not  a time  start 

7 

MANUAL  - if  last  run  was  manual 
blank  - if  not 

8 

Date  of  last  iqpdate  - (old) 

(now)  Last  update  Julian  date 

time(sec) 

9 

Time  of  last  ig>date  added 

(new)  Last  resource  tape  Julian  date 

time(sec) 

10 

Active  Number  of  PF  used  to  update* 

Inactive  Blank 

Figure  9.  Tape  Library  Problem  Record  (Problem  Information). 


i 

e 

! 
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32 


E 


801 

or 

801-1000 


Figure  11.  Tape  Library  Problem  Record  (ZBLOCK  Information) 


Word 

1 

i + 1 

nr  + 2 


nr  = number  of  resource  tapes. 


Figure  12.  Tape  Library  Resource  Record. 
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When  BOW  finds  a HULL,  PULL  and/or  KEEL  problem  record  in  li^ut,  but  no 
BOW  records,  it  selects  t^es  from  those  listed  in  the  requested  problem  record  and 
(for  KEEL  or  HULL  runs)  resource  tapes  from  the  resource  record.  The  tyx>e  of  run 
is  determined  by  the  problem  input  record  that  is  foimd  first.  Tape  identifiers  are 
placed  in  the  TAPE41  file. 

In  addition  to  selecting  tapes  BOW  performs  some  protection  functions.  BOW 
will  not  permit  a KEEL  run  for  an  existing  problem  unless  it  finds  the  ke3nvord 
RERUN  in  the  KEEL  input.  Also  successive  cycle  or  time  selected  restarts  for  the 
same  cycle  or  time  are  not  allowed  unless  sense  switch  three  is  set  on.  This  prevents 
the  user  from  accidentally  restarting  from  the  same  cycle  a second  time.  If  no  cycle 
or  time  restart  is  specified,  then  BOW  assumes  an  "end  of  world"  start  and  selects 
the  last  dump  tape  to  restart  the  problem  on  a HULL  run. 

4.1.1  Library  Maintenance 

BOW  performs  automatic  library  maintenance  vdien  generated  with  the  TAPELIB 
option  set  to  4.  hi  this  case,  whenever  BOW  executes,  it  searches  for  a permanent 
file  for  each  problem  listed  in  the  llbrajry  1^-Hie  name  yyyyyyyyyTAPE41FOxxxxPzzzz, 
Here  yyyyyyyyy  and  the  ID  of  the  permanent  file  are  installation  dependent  as  shown  in 
table  1.  ^ocxx  is  the  integer  part  of  the  problem  number  and  zzzz  is  the  fractional 
part  of  the  problem  number.  Each  permanent  file  contains  information  supplied  by 
HULL  during  an  earlier  execution  about  the  tapes  that  have  been  used  and  whether 
the  piroblem  was  completed.  This  informaticai  is  used  to  update  the  problem  record 
in  the  tape  library. 

If  BOW  finds  a BOW  record  in  input  then  it  proceeds  to  process  the  input  for 
controlled  maintenance  of  the  tape  llbraxy  index  file.  There  are  two  sets  of  primary 
key  words  which  BOW  recognizes,  library  definition  and  library  maintenance  key- 
words. 
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TABLE  1 


BOW  PERMANENT  FILE  CHARACTERISTICS 

PFN  = 3^yyyyTAPEINFOxxxPzzz 


INST 

— — — — — — 

yyyyywyyy 

ID 

1 

PROBLEMMAS 

DYMXCER 

2 

PROBLEMHUL 

DYTHUL 

3 

PROBLEMHUL 

LEWISHULL 

4 

PROBLEMHUL 

SBEUK 

5 

PROBLEMHUL 

SMCSAI 

I 

I 

I 

i1 

<1 


4.1.2  Library  Definition  Keywords 


i 


The  library  definition  allows  the  user  to  select  a tape  library  index  file  other  m 

than  the  one  defined  in  the  generation  defaults  of  the  installation  selected.  The  key-  i 

words  are 

PFN.  This  keyword  precedes  the  permanent  file  name  for  the  index  file  to  be  ! 

used. 

ID.  This  keyword  precedes  the  permanent  file  ID  for  the  index  file. 

TK.  CN.  MD.  EX.  RD.  These  keywords  precede  the  turnkey,  control,  modify,  j 

extend  and  read  passwords  of  the  iiidex  permanent  file,  respectively. 

PACKVSN.  SN.  These  keywords  precede  the  VSN  and  set  name  for  the  index  jj 


permanent  file  (only  available  if  generated  with  PF  = 2). 

CY.  This  keyword  precedes  the  cycle  number  of  the  index  permanent  file. 
LIST  APE.  VSN.  These  keywords  precede  the  VSN  of  a tape  which  contains  the 


4.1.3  Library  Maintenance  Keywords 

The  library  maintenance  keywords  allow  the  user  to  modify  the  tape  index 
library  and  the  problem  information  that  it  contains. 

They  also  allow  one  to  initialize  a new  library  file.  The  maintenance  keywords 
are 

NEW.  This  keyword  causes  BOW  to  initialize  the  tape  library  file.  It  writes 
a three  word  header  and  an  empty  resource  record  on  the  fUe.  Since  BOW  does  not 
check  the  file  it  is  initializing,  care  should  be  taken  when  using  this  keyword  that  an 
existing  tape  library  is  not  destroyed. 

ADD.  This  keyword  causes  resource  tapes  to  be  added  to  the  resource  record. 
There  are  a free  and  a fixed  format  syntax.  The  free  format  syntax  is 

ADD  [resource]  [(TAPE)  (TAPES)]  tapeid,,  tapeid„,  ....  tapeid 

1 z n 

where  tapeid.  are  tape  volumn  serial  numbers  to  be  added  to  the  tape  library  resource 
record.  The  density  is  the  current  density  of  tapes. 


The  fixed  format  is  used  to  add  tapes  to  the  tape  library  from  tape  cards  used 
at  the  AFWL,  Each  card  contains  two  alphabetic  characteristics  in  columns  1 and 
2 and  a one  to  three  digit  number  right  justified  in  columns  3-5.  The  syntax  for  this 
form  of  ADD  is 

ADD  [resource] [tape  TAPES]  {CARD  CARDS} 
tape  cards 

END  [resource]  [tAPE  TAPES ] 

Note  that  the  END  directive  is  necessary  with  this  form  of  ADD. 


DELETE  . This  kes^word  allows  the  user  to  delete  resource  tapes  from  the 
resource  records  or  to  delete  problem  records.  The  syntax  to  delete  resource 
tapes  is 


DELETE  [resource]  [tAPETAPEs]  tapeid,,  tapeid„ tapeid 

'■  ^ ■’12  n 


or 


DELETE  TAPE  AFTER  tape, 


where  tapeid.  are  the  resource  tapes  VSNs  to  be  deleted  and  tape  is  the  VSN  which 


precedes  an  imreadable  tape  VSN  in  the  resource  record. 

To  delete  problems  from  the  tape  library,  the  syntax  is 

t 

DELETE  [pros,  PROBLEM,  PROBLEMS]  pnum. , pnum.  , ...,  pnum  , 

X A Q 

where  pnumi  are  the  problem  numbers  to  be  deleted.  These  numbers  must  be  in 
ascending  order. 
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-raar:. 


1' 


! 


LIST.  This  keyword  causes  the  information  from  a particular  problem  record 
or  from  the  resource  record  to  be  listed.  The  S3rntax  is 

LIST  [[PROB  PROBLEM  PROBLEMS]  pnum  , pnum.,  ...,  pnum  ] 

[resource  [tape  tapes]] 

where  pniun^  are  numbers  for  the  problems  to  bp  listed  (in  ascending  order),  and  a 
request  for  the  resource  list,  if  Included,  must  follow  all  the  problem  numbers. 

EDIT . This  keyword  causes  a list  of  the  information  In  the  entire  library  to 
be  produced.  It  has  no  parameters . 

UPDATE.  The  kp5^ord  places  BOW  in  the  problem  update  mode  and  through 
the  use  of  secondary  kesrwords  allows  the  user  to  add  problems  or  to  modify  existing 
problems.  The  general  syntax  is 

UPDATE  [PROB  PROBLEM]  pnum 
Secondary  Keywords 
{PROB  problem}  pnum 
{PROB  problem}  pnum 
{(END  UPDATE)  ENDUPDATE} 

To  remove  tapes  for  a problem  record  from  the  tape  library  the  command  is 

DELETE  tapeld. , tapeid  , ...  tapeid 
X A u 

To  remove  tapes  for  a problem  and  place  them  in  the  resource  record  for  future  use, 
the  command  is 

RELEASE  tapeid,,  tapeid„,  ...  tapeid 
12  n 

In  both  cases,  tapeid^  are  VSNs  of  the  tapes  to  be  deleted  or  released. 


To  add  t£^e  information  to  a new  problem,  the  command  is 
ADD 


L 


•"H 


I 


tapeidj  [den^]  fcy^  ftime^  Icyc^  Itime^  date^  (for  restart  tapes) 
tapeidj  [den^  STATION  ftime^  Itime^date^  (for  station  tapes) 

and  to  add  tape  information  to  an  existing  problem,  the  command  is 

ADD  AFTER  tapeid^ 

tapeidj  den^  fcyC|  ftime^  Icyc^  Itime^  date^  (for  restart  tapes) 
tapeidj  dei^  STATION  ftime^  Itim^  date^  (for  station  tapes) 

To  delete  a problem  tape  and  replace  it  with  one  or  more  problem  tapes,  the  command 
is 

CHANGE  tapeid^ 

tapeid^  der^  fcyc^  ftime^  Icyc^  IttmOj  date^  (for  restart  tapes) 
tapeidj^  den^  STATION  ftime^  Itime^  date^  (for  station  tapes) 

where 


. I 

'i 

. j; 


i' 


tapeld  is  the  VSN  of  the  pxroblem  tape  after  which  the  tape  information  was  to 
be  added; 

tapeidj  is  the  VSN  of  the  problem  tape  which  is  to  be  replaced  by  the  tape  infor- 
mation that  follows;  and 

tageidj  is  the  VSN  of  the  i*^  problem  tape  to  be  added  by  this  command. 

th 

den^.  This  is  an  optional  density  for  the  i problem  tape.  If  not  specified,  the 
default  density  is  assumed.  , 

fcycp  The  first  problem  cycle  on  the  problem  tape. 

ftlme^.  The  first  problem  time  on  the  i^^  problem  tape. 

th 

Icyc^.  The  last  problem  cycle  on  the  i problem  tape. 

Itlme^.  The  last  problem  time  on  the  i^^  problem  tape, 
th 

date^.  The  date  the  i problem  tape  was  last  used. 
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To  add  resource  tapes  to  a problem,  the  command  is 

ADD  RESOURCE  TAPE  TAPES  tapeid. , tapeid„,  ...tapeid 

1 ^ n 

where  tapeid.  are  the  VSNs  of  the  resource  tapes  to  be  added  to  the  problem. 
To  terminate  an  update,  the  command  is 
END  UPDATE 


ENDUPDATE 

COPY.  This  keyword  ca:’ses  the  currently  defined  tape  library  to  be  copied  to 
the  Rle  TAPEll.  It  has  no  other  parameters. 

RELEASE.  This  ke3word  allows  the  user  to  release  resource  tapes  from  prob- 
lem records  and  return  assigned  tapes  to  the  resource  record.  The  s}mtax  to  release 
resource  tapes  from  problems  is 

RELEASE  [RESOURCE]  [TAPES  TAPE]  FROM  [PROS  PROBLEM 
problems]  pnum  , pnum„,  ...  pnum 

1m  u 

where  pnum^  are  the  problem  numbers  (in  ascending  order)  from  which  the  resource 
tapes  are  to  be  released. 

To  release  problems  from  the  tape  library,  the  syntax  is 

RELEASE  {PROB  PROBLEM  PROBLEMS}  pnum^^,  pnum2, 

where  pnum^  are  the  problem  numbers  of  the  problems  to  be  released  (numbers  in 
ascending  order). 

TRANSFER.  This  kesrword  will  cause  problems  to  be  transferred  from  the 
current  tape  library  to  the  tape  library  or  file  TAPEll.  The  sjmtax  is 

TRANSFER  [PROB  PROBLEM  PROBLEMS]  pnum^,  pnum^,  ...  pnxun^ 


where  pnum^  are  the  problem  numbers  (in  ascending  order)  of  the  problems  to  be 
transferred. 


DENSITY.  This  keyword  allows  the  user  to  change  the  default  density  when 
adding  tapes.  The  syntax  is 

DENSITY  = PE  HD  HY  HI  LO 


where 

PE  is  1600  bpi,  nine  track 
HD  is  800  bpi,  nine  track 
HY  is  800  bpi,  seven  track 
HI  is  556  bpi,  seven  track 
LO  is  200  bpi,  seven  tirack 

The  original  default  density  is  defined  by  DENSLIB.  * 

DENSLIB  Default  Density 

3 HY 

5 PE 


4.2  PLANK 

PLANK  searches  the  input  file  for  the  first  KEEL,  HULL,  or  PULL  problem 
data  record  and  requests  and  generates  an  alternate  input  file  with  the  appropriate 
options  for  SAIL  to  generate  the  program  requested. 


4. 3 Subroutine  Library 

There  are  a number  of  subroutines  used  jointly  by  more  than  one  program  in 
the  HULL  system.  These  constitute  the  subroutine  library.  Ten  of  these  subroutines 
are  included  in  the  SAIL  library: 

COMPR,  GETNUM,  GTWD,  STOR,  INTEG,  STORN,  AND(IBM),  OR(IBM) 
COMPL(IBM),  AND  SHIFT(IBM). 

* See  Section  III.l  for  a description  of  DENSLIB 


The  routines  which  are  part  of  the  HULL  library  are 

VALUE,  NEXT,  PARTOUT(CDC),  PFNSET(CDC),  RDL,  WR,  RDL2(CDC), 
WR2(CDC),  SEARCH,  SINK,  OFFSW(CDC),  ONSW(CDC),  CDATE,  DAY(IBM), 
DEVTYP(CDC),  ENDREC(CDC),  FL(CDC),  INBY(CDC),  PFMM(CDC), 
REMARK(CDC),  REQUEST(CDC),  RETURNS(CDC),  ROUTEIT(CDC),  SET(CDC) 
TIMTGO(CDC),  WAECS(CDC),  SECOND(IBM),  LOCF(IBM). 

The  subroutines  are  described  individually  in  appendix  A. 


SECTION  m 

HULL  SYSTEM  CONTROL 


The  HULL  system  generation  is  controlled  by  the  general  system  SAIL  options, 
the  problem  ZBLOCK,  the  PLANK  control  options  for  HULL  and  KEEL,  the  PLANK 
control  for  PULL,  derived  options,  and  on  CDC  systems  by  sense  switch  setting. 

1.  GENERAL  SYSTEM  SAIL  OPTIONS 

These  are  the  master  control  options  which  select  characteristics  appropriate 
to  the  hardware  and  system  software  to  be  used  when  generating  any  of  the  codes  in 
the  HULL  system.  These  options  are 

INST.  This  option  defines  the  installation  where  the  code  is  to  be  run.  The 
default  for  this  option  is  set  in  the  header  of  the  HULL  system  SAIL  file.  This 
option  determines  the  default  value  of  all  other  general  system  options.  The  values 
hove  the  following  meanings. 


INST 

1 

2 

3 

4 

5 

6 


Installation 

Air  Force  Weapons  Laboratory,  Kirtland  AFB,  NM 
Air  Force  Armament  Laboratory,  Eglin  AFB,  FL 
McDonnell  Douglas  Astronautics,  Huntington  Beach,  CA 
ABMDA  Research  Center,  Huntsville,  AL 
SAl  (ABMDA  Research  Center),  Huntsville,  AL 
Atomic  Weapons  Research  Establishment,  United  Kingdom 


SYS.  This  describes  the  computer  on  which  the  HULL  system  is  to  run.  The 
values  are 


SYS 

Computer 

66 

CDC  6600 

76 

CDC  7600 

176 

Cyber  176 

360 

IBM  360 

370 

IBM  370 

itly  set  in  the  HULL  system  by 

installation  are 

INST 

SYS 

1 

176 

2 

66 

3 

76 

4 

66 

5 

66 

6 

370 

VER.  This  option  defines  the  version  of  the  operation  system  under  which  the 
HULL  system  is  running.  The  values  are 

VER  Operating  System 

2 OS/VS2(rBM) 

4 Scope  3.4  or  NOS/BE  (see  option  NOSBE, 

CDC) 

Scope  2.0,  2.1  or  2.2  (CDC) 
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The  defaults  by  installation  are 


INST 


VER 


NOSBE.  Since  the  NOS/BE  system  has  features  additional  to  those  of  SCOPE  3, 4, 
this  option  was  added  to  indicate  for  CDC  systems  that  the  NOS/BE  extensions  can  be 
used  if  the  value  is  nonzero.  The  defaults  by  installation  are 


INST 


NOSBE 


1 

2 

3 

4 

5 

6 


1 

1 

0 

0 

0 

not  defined 


PF.  On  CDC  systems,  this  option  defines  the  type  of  permanent  files  that  are 
to  be  used  by  the  HULL  programs.  The  vsilues  are 

PF  Permanent  File  Usage 

0 no  permanent  file 

1 permanent  Hie  on  default  system  disk 

2 permanent  file  on  default  cycle  disk 
or  other  user  set  disk 


TAPELIB.  This  option  defines  the  type  of  tape  library  that  is  to  be  used  to 
handle  the  HULL  system  t^es.  The  values  are 


INST 


TAPE  LIB  (continued) 


4 

5 

6 


0 

0 

0 


Note.  TAPELIB  = 1 generates  code  for  STERN  which  has  not  been  upgraded  with  the 
rest  of  the  tape  library. 

ROUTE.  This  option  describes  the  routing  characteristics  to  be  used  on  CDC 
systems.  The  understood  values  are 

ROUTE  Routing  Type 

0 no  routing 

1 routing  available 

2 routing  of  generated  program  to 

another  mainframe 

3 routing  of  a HULL  job  following  a 

KEEL  run 

4 routing  of  a PULL  job  upon 

completion  of  a dump  tape  in  a 
HULL  run 

The  defaults  by  installation  are 

ROUTE 

1 
4 
0 
0 
0 

not  defined 


INST 

1 

2 

3 

4 

5 

6 


DENSHUL,  DENSSTA.  DENSLIB.  These  options  define  the  default  density  of  the 
HULL  dump  tape,  the  station  tape  and  the  tape  library  tape,  respectively.  Values  are 


DENS*** 

1 LO — 200  bpi  sevenH:rack  tape  (code 

not  implemented) 

2 HI— 556  l^i  seven-track  tape  (code 

not  Implemented) 

3 HY — 800  bpi  seven-track  tape  (code 

not  implemented) 

4 HD — 800  bpi  seven-track  tape  (code 

not  implem^ted) 

5 PE — 1600  bpi  phase  encoded  nine- 

track  tape 

6 GE — 6250  bpi  grotqp  encoded  nine- 

track  tape  (code  not  Implemented) 

Where  ***  is  HUL,  STA  and  LIB. 

The  defaults  by  installation  are 

INST  DENSLIB  DENSHUL  DENSSTA 

1 5 5 3 

2 3 3 3 

3 3 3 3 

4 3 3 3 

5 3 3 3 

6 — — — not  defined 

LABEL.  This  option,  if  nonzero,  indicates  the  HULL  dump  tape  has  existing 
labels  on  CDC  systems.  The  defaults  are 


INST 


LABEL 


not  defined 


DATE.  This  is  the  date  option  for  CDC  systems. 


DATE 


Date  Type 


0 DD/MM/YY 

1 MM/DD/YY 

where  DD  is  the  day  of  the  month,  MM  is  the  month,  and  YY  is  the  year.  The 
defaults  by  installation  are 


DATE 


not  defined 


\. 


2.  HULL  PROBLEM  ZBLOCK  , 

The  description  of  a HULL  problem  is  found  in  the  problem  ZBLOCK.  The 
ZBLOCK  is  defined  in  the  HULL  and  KEEL  programs  in  the  common  block  /ZBLOCK/.  | 

The  names  of  the  ZBLOCK  parameters  are  found  in  a common  block  /ZNAME/.  The  j 

variable  NAMEZ  and  the  SAIL  program  ZNAMES  contain  the  names  of  the  /ZBLOCK/ 
parameters  in  the  order  the  parameters  are  found  in  common  /ZBLOCK/. 

The  ZBLOCK  information  is  transfexnred  between  the  HULL  system  programs 
and  the  problem  dump  t^e  in  the  form  of  an  array  ZBLK(100,2)  (single  precision 
on  CDC  and  double  precision  on  IBM).  In  the  array ZBLK(1, 2)  contains  the  name  of 
the  ZBLOCK  parameter  and  ZBLK(I,1)  contains  its  value.  All  numeric  ZBLOCK 
parameters  are  stored  in  ZBLK  as  real  (i.e. , floating  point  numbers)  and  all  logical 
variables  as  logicals.  (On  IBM,  the  logical  value  is  in  the  upper  half  of  the  double 
precision  ZBLK(I,1). 

KEEL  generates  the  ZBLOCK  for  a new  problem  from  the  NAMEZ  array  of 
PROC  ZNAMES.  Because  of  FORTRAN  statement  continuation  restrictions,  the 
NAMEZ  data  is  divided  into  four  arrays  NAMEl  (dimensioned  D$NAMEA),  NAME2 
(dimensioned  D$NAMEB),  NAMES  (dimensioned  D$NAMEC),  and  NAME4  (dimensioned 
D$NAMED).  The  actual  number  of  parameters  in  the  ZBLOCK  is  determined  by  the 
option  of  the  problem  and  is  D$NAMEA  + D$NAMEB  + D$NAMEC  + D$NAMED. 

Parameters  are  included  in  the  ZBLOCK  unless  they  are  needed  for  the  problem. 

ZBLOCK  information  is  transferred  between  common  /ZBLOCK/  and  the  array 


ZBLK  in  the  routines  ZSET  and  SETZ.  The  parameter  name  ZBLK(1, 2)  is  compared 
to  NAMEZ(J),  and  the  value  is  stored  in  the  corresponding  position  of  /ZBLOCK/  i 

if  they  match.  Since  those  parameters  which  are  stored  as  integers  in  /ZBLOCK/ 
must  be  converted  from  floating  point  while  those  which  are  stored  as  floating  point 
* or  logical  do  not  need  to  be  converted,  an  array  ITYPZ  (with  division  ITYl,  ITYS, 

M ITY3,  and  ITY4)  defines  whether  the  parameter  is  transferred  or  converted  between 

^ fixed  and  floating  point.  (If  ITYPZ(J)  = 1,  the  value  is  converted  and  not  if  ITYPZ(J)  j 

i =0.)  1 
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2.1  ZBLOCK  Parameters 

The  meaning  of  the  ZBLOCK  parameters  and  their  default  values  (In  KEEL)  are 
described  below.  Parameters  marked  with  asterisks  are  used  by  PLANK  as  SAIL 
options  for  pr<^am  generation. 

PROB.  Problem  number  for  the  calculation  (real). 

AREF.  Back  reflective  boundary  flag  In  three  dimensions  (logical).  Included 
only  If  DIMEN  = 3 (default  = . FALSE. ). 

ATMOS.  * This  parameter  defines  the  type  of  atmosphere  which  will  be  used  in 
the  rezoning  process.  This  value  is  initially  set  during  KEEL  and,  if  not  specified, 
defaults  in  KEEL  to  a value  of  2 (integer). 


ATMOS 

1 

2 

3 

4 

5 


Atmosphere  Type 

tropical  atmosphere 

temperate  atmosphere 

arctic  atmosphere 

exponential  atmosphere 

constant  atmosphere  (density 
and  pressure) 


BREF.  Bottom  reflective  boundary  flag  (logical,  default  = .FALSE.). 

BURN.*  This  parameter  is  included  in  the  ZBLOCK  by  KEEL  only  If  it  is  set 
to  a value  not  equal  to  0.  This  describes  the  type  of  HE  bum  routine  that  is  to  be 
used  (integer). 


BURN 


Bum  Code 


0 no  bum  code 

1 TNT  type  bum  with  detonation  velocity 

= Cs  + 2 Cp,  where  Cs  = sound  speed 
and  Cp  = particle  velocity. 


2 programmed  bum  with  a constant 

detonation  velocity 

* ZBLOCK  parameters  used  by  PLANK  in  the  program  generation  as  a SAIL  option 
are  starred  in  this  subparagraph. 
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CODE.*  This  parameter  has  meaning  only  for  codes  where  NOP  Is  greater  than 
0.  It  describes  the  type  of  particle  transport  to  be  used.  KEEL  sets  the  default  in 
the  ZBLOCKto  1 (integer). 


CODE 


Particle  Transport 


1 noninteractive 

2 interactive  dust 

COLD.  Logical  parameter  to  indicate  if  radiative  cooling  is  to  be  done.  PLANK 
sets  the  SAIL  generation  option  HOT  to  0 if  COLD  = .FALSE,  (default  = .TRUE.). 

CYCLE.  Current  cycle  number  (real). 

DIMEN.  Number  of  dimensions  in  calculation.  Set  in  KEEL  with  a default  of 
2 and  should  not  be  changed  after  KEEL  (int^er). 


DIMEN 


one-dimensional  mesh  (not  implemented) 
two-dimensional  mesh 
three-dimensional  mesh 


DT.  Current  time  step  in  seconds  (real) . 

ELC.  Total  energy  of  mesh  at  last  cycle  in  ergs  (real) . 

EOS.  * This  parameter  describes  the  equation  of  state  to  be  used  during  the 
problem.  Default  in  KEEL  is  1.  Care  should  be  exercised  if  the  value  of  this  option 
is  changed  during  execution  (integer). 


EOS  Equation  of  State 

1 analytic  equation  of  state  for  air 

2 constant  gamma  equation  of  state 

6 multimaterial  equation  of  state 

10  tabulated  air  equation  of  state 

ETH.  Total  theoretical  energy  in  the  mesh  in  ergs  (real). 

EXPAND.  Expansion  factor  for  rezone  (real) . 

fail.*  This  value  is  defaulted  to  0 in  keel.  If  it  is  set  to  a nonzero  value, 
the  multimaterial  (EOS  = 6)  equation  of  state  will  simulate  failure  by  inserting  a gas 
(usually  air)  into  a cell  where  a failure  has  occurred. 

FLUXER.  * This  parameter  describes  the  type  of  multimaterial  fluxing  that 
is  to  be  done.  The  default  value  is  set  to  2 in  KEEL  and  cannot  be  changed  to  a 
hi^er  value  than  the  KEEL  value  durii^  the  run. 


FLUXER 


no  flux  limiter  (not  implemented) 

Flux  limited  by  mass  of  material. 
Temperature  equilibrium  assumed. 
Individual  masses  carried. 

Flux  limit  calculated  by  relative 
volumes  of  individual  material. 
Temperature  equilibrium  assumed  and 
Individual  masses  are  carried. 

Flux  limit  calculated  by  relative 
volumes  of  individual  materials. 
Temperature  equilibrium  not  assumed 
since  energies  of  individual  materials 
are  carried  as  well  as  their  masses 
and  volumes. 
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HOB.  Height  of  the  weapon  burst  in  kilometers  (real,  default  =0). 

IMAX.*  This  is  the  number  of  cells  in  the  X direction  of  the  mesh.  KEEL 
defaults  IMAX  to  100.  It  must  not  be  changed  from  the  KEEL  value  (integer). 

IQ.  Current  extent  of  active  calculation  in  the  x direction  (integer,  default  f 

i 

= IMAX-1). 

ISLAND.  This  parameter  is  defaulted  to  0 by  KEEL  and  PLANK  and  causes  i 

codes  to  be  generated  for  fixed  internal  boundaries  if  set  greater  than  0.  The  value 
of  the  option  should  not  be  changed  after  KEEL  (integer). 

JMAX.  * This  Is  the  number  of  cells  in  the  y direction  (axial  in  two  dimension) 
of  the  mesh.  KEEL  defaults  this  to  200.  It  must  not  be  changed  from  its  KEEL 
value  (integer). 

JQ.  Current  extent  of  active  calculation  in  the  y direction  (integer,  default 
= JMAX  -1). 


KM  AX.  ♦ This  is  the  number  of  cells  in  the  z direction  of  a three-dimensional 
mesh.  It  is  defaulted  to  1 by  KEEL  and  also  KEEL  will  put  the  option  in  the  ZBLOCK 


I 


Kg.  Current  extent  of  active  calculation  in  the  z direction  of  a three- 
dimensional  mesh  (integer).  Included  only  if  DIMEN  = 3 (default  = KMAX  - 1). 


LREF.  Left  reflective  boundary  flag  (logical,  default  = .TRUE.).  i( 

MAGFLD.  ♦ This  option  describes  the  magnetic  field  code  that  is  to  be  included. 

KEEL  defaults  MAGFLD  to  0 and  only  includes  it  in  the  ZBLOCK  if  it  is  set  to  a non-  j 

i 

zero  value  (integer) . 

li 

i 

i 

MAGFLD 

0 no  magnetic  field  code 

1 dipole  magnetic  field 

METHOD.  * This  option  selects  the  finite  difference  method  used  in  the  hydro-  ! 

differencing.  The  default  set  by  KEEL  is  2. 

METHOD 

1 

2 
3 

MLC.  Total  mass  on  the  mesh  at  end  of  last  cycle. 

NTH.  Total  theoretical  mass  in  mesh. 

NH.*  The  number  of  words  in  mesh  per  cell  (integer). 

NH  = 3 + DIMEN  + NUM*FLUXER  + NHIST  + NR  + MG  + NSTR 
+ NSTN  + NEOS  + NWRK 
NR  = 4 if  RAD  = 2 
= 0 otherwise 

NUM  = NM  , NM  > 1 and  EOS=6 
= 0 , NM<  1 or  EOS  =6 


Difference  Time 

SHELL 
HULL  n 

Lax-Wendroff  (not  implemented) 
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MG  - 21fMAGFLDj^0 
- 0 otherwise 

NSTR  = 3 If  STRESS  / 0 and  DIMEN  = 2 

= 5 if  STRESS  y 0 and  DIMEN  = 3 

= 0 otherwise 

NSTN  = 3 If  STRAIN  0 and  DIMEN  = 2 

= 5 If  STRAIN  0 and  DIMEN  = 3 

= 0 otherwise 

NEOS  = 1 If  EOS  = 7 and  DIMEN  = 2 
“ 0 otherwise 

NWORK=  1 If  WORK  ^ 0 
= 0 otherwise 

NHIC.  Number  of  word  of  core  used  by  HULL  for  calculation.  This  Is  a 
program  generator  option  used  hy  PLANK  (integer). 


NHIC 


= NROWIC*IMAX*NH 


NROWIC  = 3 + MG  + NR  + NMN  if  DIMEN  = 2 and  SW  5 
MG  = 1 if  METHOD  ^ 0 or  MAGFLD  0 
= 0 otherwise 
NR  =lifRAD?^0 

= 0 otherwise 
NMN  = 1 if  NM  > 1 

= 0 otherwise 

NROWIC  = JMAX  if  DIMEN  = 2 and  SW  = 5 

= JMAX*3  if  DIMEN  = 3 and  NM  < 1 
= JMAX*4  if  DIMEN  = 3 and  NM  > 1 

NVARST.*  This  parameter  is  the  number  of  variables  per  station  (default  4 
if  STRESS  = 0 and  15  otherwise).  Not  included  in  the  ZBLOCK  if  NSTN  = 0. 


NM.  * This  parameter  Is  the  number  of  materials  in  the  problem,  tt  is  only 
useful  for  EOS  = 6.  Set  to  1 as  a default  by  KEEL  (integer). 

NOP.*  This  is  the  number  of  particles  and/or  stations  in  the  problem.  It  is 
set  to  the  appropriate  value  by  KEEL  and  is  included  in  the  ZBLOCK  only  if  greater 
than  0.  It  is  a program  generation  option. 

NPLPB.*  This  parameter  is  the  number  of  planes  per  logical  record  on  the 
dump  tape  of  a three-dimensional  problem.  It  is  included  in  the  ZBLOCK  only  if 
DIMEN  = 3. 

NPLPB  = MAX(K,  NPLIC)  such  that  MOD(KMAX,  K)  = 0 

where  NPLIC  = 3 if  NM  < 1 
= 4 if  NM  > 1 

NPP.  This  parameter  is  the  number  of  particle  parameters. 

NPP  = 2 If  DIMEN  = 2,  CODE  = 1,  CDC  / 0 
= 3 If  DIMEN  = 2,  CODE  = 1,  IBM  0 
or  DIMEN  = 3,  CODE  = 1,  CDC  / 0 
= 4 if  DIMEN  = 3,  CODE  = 1,  IBM  ^ 0 

= 6 If  DIMEN  = 2,  CODE  = 2,  CDC  ^ 0 

= 7 If  DIMEN  = 2,  CODE  = 2,  IBM  / 0 

NHIST.  * This  is  the  number  of  fluxed  histories.  KEEL  defaults  to  3 if  STRESS 

is  greater  than  0,  to  6 if  STRAIN  if  greater  than  0,  and  0 otherwise.  It  is  not  included 
in  the  ZBLOCK  if  it  is  equal  to  0.  Care  should  be  exercised  in  changii^  the  value  of 
this  option  during  execution  (integer). 

NSTN.  * This  is  the  number  of  stati(xis  in  the  problem.  It  is  defaulted  to  0 in 
KEEL  and  not  included  in  the  ZBLOCK  if  it  is  equal  to  0.  KEEL  will  not  allow  the 
creation  of  more  stations  at  apy  one  time  than  Is  indicated  if  NSTN  Is  Included  In 
Input.  KEEL  will  set  the  parameter  to  the  number  of  stations  generated  (integer). 


NROWPB.*  This  is  the  number  of  rows  in  a logical  record  on  a HULL  dump 
tape  for  a two-dimensional  mesh  (integer).  It  is  included  in  the  ZBLOCK  only  if 
DIMEN  = 2: 


NROWPB  = MAX(J,  NROWIC)  said  that  MOD(J,  JMAX)  = 0. 

I 

I 

PTSTOP.  Stop  time  in  teinns  of  seconds  of  problem  time  (real,  default  1.0  E 20). 

RAD.  * This  parameter  specifies  the  radiation  transport  code  to  be  included. 

It  is  defaulted  to  0 in  KEEL  and  is  included  in  the  ZBLOCK  only  if  it  is  set  to  a value 
^ greater  than  0 (integer) . 

RAD  Location  TransTX>rt 

0 no  radiation  code 

1 equilibrium  radiaticm  diffusion  (no  code) 

2 nonequilibrium  radiation  difiiision 


RADLOS.  Total  energy  (ergs)  lost  from  the  mesh  due  to  radiation  or  radiation 
cooling  routines  (real). 

REZONE.  * This  parameter  specifies  the  type  of  rezone  that  is  to  be  performed 
at  the  boundary  of  the  mesh  (integer).  KEEL  defaults  the  value  of  this  option  to  1 and 
the  acceptable  values  are 


RE ZONE 

0 

1 

2 

3 

4 

5 

6 
7 


Type  of  Re  zone 

no  rezone 

standard  shock  follower  rezone 
fireball  follower 
horizontal  shock  follower 
vertical  shock  follower 
particle  follower 

particle  follower  with  shocks  ignored 
continuous  rezone 
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BREF.  Ri^t  reflective  boundary  flag  (logical,  default  = .FALSE.). 

ST  ABF.  Courant  stability  factor  (real,  default  = 0.5). 

STRAIN. * This  option  specifies  that  code  is  to  be  included  for  material  strain 
calculation.  Defaults  to  0 (no  strain  calculation)  and  is  not  included  in  ZBLOCK 
unless  it  is  set  greater  than  0.  Should  not  be  set  greater  than  0 unless  STRESS  > 0 
(integer). 

STRESS.  This  option  if  greater  than  0 specifies  the  inclusicm  of  the  code  to 
calculate  the  elastic -plastic  strength  of  solids.  KEEL  has  a default  of  0 and  the 
option  is  not  included  in  the  ZBLOCK  unless  it  has  a value  greater  than  0. 

SUME.  Total  energy  (ergs)  lost  from  mesh  (real). 

SURF.*  This  option  provides  code  for  physical  bottom  boundary  conditions. 

The  default  in  KEEL  is  0 and  the  option  is  included  in  the  ZBLOCK  only  if  it  has  a 
value  greater  than  0 in  KEEL.  The  values  acceptable  are 

SURF  Surface  Condition 

0 no  special  code 

1 simple  thermal  layer 

2 thermal  layer  for  nuclear  blast  precursor 

TER  AD.  Cumulative  radiation  energy  loss  (ergs,  real)  compared  with  RAD  LOS. 

TLC.  Problem  time  last  cycle  (sec,  real). 

TREF.  Top  reflective  boundary  flag  (logical,  default  = .FALSE.). 

TTIME.  Total  CPU  time  for  problem  to  current  cycle  (real). 

TTIME6.  Total  CDC  6600  CPU  time  for  problem  (real).  Included  only  for 


INST  = 1. 


TTIME7.  Total  CDC  7600  CPU  time  for  problem  (real).  Included  only  for 
INST  = 1. 

TTSTOP.  Total  CPU  time  limit  (real). 

UREZ.  Velocity  (cm/sec)  which  will  trigger  a rezone  at  boundaries  of  x-direction 
(real,  default  = 10). 

Vise.*  When  this  parameter  has  a value  which  is  greater  than  0,  artificial 
viscosity  is  included  in  the  hydro  calculation.  The  default  set  in  KEEL  is  0 (integer). 

VREZ.  Velocity  (cm/sec)  which  will  trigger  a rezone  at  boundaries  of  the  y- 
dlrection  (real,  default  = 10). 

VOIDS.  * This  option  specifies  the  code  for  the  handling  of  voids  that  is  to  be 
included  (integer).  The  default  in  KEEL  is  0 and  the  acceptable  values  are 

VOIDS  Void  Code 

0 no  voids  allowed 

1 implicit  voids 

2 use  of  material  "VOID"  which  must  be 

declared 

WORK.  * If  this  option  has  a nonzero  value  then  code  is  included  to  calculate 
the  elastic-plastic  work  on  solids  (integer).  The  default  in  KEEL  is  0. 

WREZ.  Velocity  (cm/sec)  which  will  trigger  a rezone  at  boundaries  of  z-direction 
(real).  Included  in  the  ZBLOCK  only  if  DIMEN  = 3 (default  = 10). 

XOB.  The  X coordinate  of  burst  (real) . 

YOB.  The  y coordinate  of  burst  (real).  Default  = 0. 
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YGND.  Location  of  ground.  When  mesh  is  rezoned  at  bottom  to  YGND,  the 
BREF  becomes  .TRUE,  (real,  default  = 0). 

YIELD.  Yield  of  weapon  in  KT  (real,  default  = 0). 

"material".  If  EOS  = 6,  then  NM  ZBLOCK  entries  are  the  material  identifiers 
for  the  materials  used  in  the  problem  (see  table  2).  The  values  are  the  integer 
number  for  the  equation-of-state  munber  for  that  material.  There  must  be  NM 
unique  values  between  1 and  NM. 

As  noted  above,  ZBLOCK  parameters  marked  with  asterisks  are  used  by 
PLANK  in  the  program  generation  as  a SAIL  option.  They  have  default  values  of  0 
if  they  are  not  found  in  the  ZBLOCK  or  are  not  specified  in  the  KEEL  input,  e^ccept 

ATMOS  = 2 
CODE  = 1 
DIMEN  = 2 
EOS  = 1 
FLUXER  = 2 
IMAX  = 100 
JMAX  = 200 
KMAX  = 1 
METHOD  = 2 

NVARST  = 4 if  BTRESS  = 0 
NVARST  = 15  if  STRESS  > 0 
NM  = 1 

NPP  = DIMEN 


r 


TABLE  2 


HULL  CODE  MATERIALS 


I 

r 

l! 


Material 


Material 

Identifier 


Ambient 


Specific 


Internal  Energy 


AFX-108 

AFXO 

5.98005 X 10® 

1.54 

Air 

AIR 

2.044  X 10® 

1.225  X 10 

Aluminum 

AL 

2.71578  X 10® 

2.71 

Anfo 

ANFO 

2.66281  X 10® 

0.85 

Burned  Anfo 

ANFOBRN 

4.7  X 10® 

0.85 

Methane 

CH4 

2.3  X 10® 

1.113  X 10 

Comp  B 

COMPB 

2.615  X 10® 

1.72 

Burned  Comp  B 

CBBRN 

4.94  X 10® 

1.72 

Concrete 

CONCRT 

7.81  X 10® 

2.2 

Copper 

CU 

1.13336  X 10® 

8.9 

Iron 

FE 

1.26816  X 10® 

7.86 

Granite 

GRANTT 

5.2  X 10^ 

2.68 

Octol 

OCTOL 

2.615  X 10® 

1.82 

Burned  octol 

OCTBRN 

5.272  X 10^® 

1.82 

Pentalite 

PEN 

2.65316  X 10® 

1.66 

Biimed  pentalite 

PENBRN 

5.155  X 10^® 

1.66 

PBX 

PBX 

2.65316  X 10® 

1.84 

Burned  PBX 

PBXBRN 

5.86  X 10^® 

1.84 

Sand 

SAND 

7.81  X 10® 

1.6 

Stainless  steel 

SSTEEL 

1.26816  X 10® 

7.86 

Tantalum 

TA 

4.02619  X 10® 

16.6 

$ 
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TABLE  2 (continued) 
HULL  CODE  MATERIALS 


I 


Material 

Material 

Identifier 

Specific 

Internal  Energy 
(ergs/g) 

Ambient 

Densi^ 
(g/cm  ) 

TNT 

TNT 

2.65516  X 10® 

1.56 

Burned  TNT 

TNTBR 

4.73 X 10^® 

1.56 

Tuff 

TUFF 

2.8573  X 10® 

1.97 

Tungsten 

W 

3.54228  X 10^ 

18.1 

Water 

WATER 

2.0x10® 

1.0 

♦ 
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2.2  Adding  ZBLOCK  Parameters 

To  add  a ZBLOCK  parameter,  the  parameter  is  inserted  in  the  ZBLOCK  and 
the  name  of  the  parameter  is  inserted  in  the  same  relative  position  in  the  NAMEZ 
subarray.  The  parameter  may  be  conditionally  or  unconditionally  included.  Also  a 
data  t3T>e  parameter  of  0 for  logical  and  real  parameters  and  1 for  integer  parameters 
must  be  inserted  in  the  corresponding  position  of  the  DATA  statement  for  the  ITYPZ 
subarrays.  Next  the  appropriate  DEFN  must  be  added  to  increase  NAMEZ  dimension 
(D$NAMEA  if  the  name  was  inserted  in  NAMEl,  D$NAMEB  if  in  NAME2,  D$NAMEC 
if  in  NAMES,  and  D$NAMED  if  in  NAME4).  Finally,  the  default  value  must  be  set  in 
KEEL. 

If  the  new  ZBLOCK  parameter  is  to  be  a PLANK/SAIL  generation  option,  the 
name  must  be  added  to  the  data  statement  in  PLANK  and  the  DATA  statement  for 
NVAR  must  be  increased.  The  default  (if  not  0)  must  be  set  in  PLANK. 

3.  PLANK/SAIL  CONTROL  OPTIONS 

The;re  are  a number  of  program  generated  options  which  control  the  type  of 
code  that  is  produced,  "rtiese  options  include  HULL  and  KEEL  options  and  PULL 
option. 

3.1  HULL  and  KEEL  Options 

DEBUG.  This  option  has  a default  value  of  0 and  may  be  set  to  nonzero  in  the 
SAIL  iiqmt  to  cause  DEBUG  prints  to  be  generated  in  the  code. 

FILMPR.  This  option  has  a default  value  of  0 for  all  installations  except  at 
INST  = 1 and  INST  = 3,  where  it  is  1.  If  set  to  nonzero  in  SAIL  input,  it  causes  the 
generation  of  additional  output  from  HULL  and  KEEL  which  would  normally  be 
directed  to  a film  output  device. 

HLEV.  This  option  has  a default  value  of  1.  When  set  to  2 in  SAIL  input,  it 
causes  the  incore  H-array  to  be  put  on  level  2 on  CDC  7600  and  Cyber  176. 

SW/SWX.  These  options  are  set  in  PLANT  to  determine  what  storage  mode 


will  be  used  for  the  problem. 


i 


SW ^Defaults  to  0 for  CDC  and  6 for  EBM.  PLANK  will  set  to  6 If  sense  j! 

switch  1 is  not  on,  to  0 if  both  sense  switches  6 and  1 are  on,  and  to  5 if  only  sense 

: 

switch  5 is  on. 

SWX—Defaults  to  0.  PLANK  will  set  to  1 if  sense  switch  6 and  sense 
switch  1 are  both  on  (CDC  systems). 

Since  sense  switches  are  only  available  on  CDC  machines,  the  option  SW  and 
SWX  can  be  set  from  PLANK  input  on  IBM  systems.  These  values  control  the  mesh 
allocation. 


SW  SWX 

Q 0 Mesh  is  stored  in  EC3/LCM  (CDC  only). 

0 1 Mesh  is  stored  on  direct  access  file. 

6 N/A  Mesh  is  stored  on  sequential  file. 

5 N/A  Mesh  is  stored  in  core. 

3.2  PULL  Options 

The  PULL  control  options  are  set  by  PLANK  when  PULL  generation  is  requested. 
They  Include  SW  and  SWX  discussed  in  the  HULL  and  KEEL  section.  All  others  have 
a default  of  0 unless  specified  otherwise. 

HHST.  Is  set  to  1 when  code  for  horizontal  histograms  is  to  be  included. 

VHST.  Is  set  to  1 when  code  for  vertical  histograms  is  to  be  included. 

ET.r>FN-  Is  set  to  1 if  electron  density  plots  were  requested. 

DUSTY.  Is  set  to  1 if  the  plot  is  of  a DUSTY  tape. 

PART.  Is  set  to  1 if  the  code  for  particle  plots  is  to  be  included. 

CURL.  Is  set  to  1 if  the  code  to  calculate  curls  is  to  be  included. 
grad.  Is  set  to  1 if  the  code  to  calculate  gradients  is  to  be  included. 

VECTOR.  Is  set  to  1 if  vector  plots  are  to  be  made. 
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CONT.  Is  set  to  1 If  contour  plots  are  to  be  made. 

MF.  Specifies  type  of  film  output.  Default  is  16  except  when  PLOTPKG  = 5, 
then  MF  = 105.  Values  are 


16  mm  film 
35  mm  film 
48X  microfiche 


HULL.  Set  to  1 if  the  plot  is  of  HULL  data. 
CONTV.  Set  to  1 If  contour  values  were  specified. 


DDDPLOT.  Set  to  1 if  a three-dimensional  contour  plot  of  a three-dimensional 
problem  is  requested. 

STATION.  Set  to  1 if  station  plots  are  requested. 

PUNCH.  Set  to  1 if  code  for  punched  output  is  required. 

LAMBPLOT.  Set  to  1 if  plotting  of  LAMB  data  is  requested. 

PLOTPKG.  Plotting  package  to  be  used  defaults  as  5 for  INST  = 1,  4 for  INST 
= 2 or  INST  = 3 and  0 for  all  other  installations.  The  values  are 


PLOTPKG 


Plotting  Package 


No  plotting  package. 

Plotting  package  included  to  generate 
Calcan  tape  for  a CDC  160A  system. 

Plotting  package  included  to  generate 
CDC  280  microfilm. 

Both  plotting  package  1 and  2 are 
included. 

SC  4020  plotting  package  included. 
Meta  file  plotting  interface  included. 
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3.3  Derived  Options 


These  options  obtain  their  values  based  on  the  value  of  other  options. 

3.3.1  General  Derived  Options 

These  affect  the  entire  code  and  are  generally  related  to  the  system  configuration. 

CDC  = 1 if  SYS  = 66,  SYS  = 76,  SYS  = 65  or  SYS  = 176 
= 0 otherwise 

IBM  = 1 if  SYS  = 360  or  SYS  = 370 
= 0 otherwise 

CW  — Number  of  characters  in  a character  variable. 

= 10  if  CDC  0 
= 8ifIBM?^0 

RDEND  — Type  of  end  of  file  test. 

= 2 if  CDC  0 
= 1 if  IBM  0 

NW  — Number  of  words  in  a character  variable. 

= 1 if  CDC  0 
= 2 if  IBM  i 0 

CARDL  — Number  of  words  in  a CARD. 

= 80/CW,  MOD(80,  CW)  = 0 
= 80/CW  + 1,  MOD(80,  CW)  = 0 

CARDO  Even  length  of  card  data. 

= 80  - [80/CW]  *CW 
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3.2.2  HULL  and  KEEL  Derived  Options 


These  option  values  are  derived  either  in  PLANK,  KEEL,  or  SAIL. 


■'I 


t 


t 


3.3.3  PULL  Derived  Options 

These  option  values  are  set  for  PULL  by  PLANK. 

DKMAX.  Maximum  dimensions 

= max(IMAX,JMAX,KMAX) 

BLKCOM.  Amount  of  blank  common  needed 

= max(BLKCM,BLKCMSO,  BLKCMV,  BLKCMP,  BLKCMG, 
BLKCMC,  BLKCME) 

BLKCM  = max(200,  MAX  + JMAX  + 6,  IMAX*NH*NROWPB, 
NPPR*NPP) 

BLKCMSO  = max(NVARPP*NPLPB,  NNARPP  + UKMAX*NH) 
If  DIMEN  = 3 
= 0 otherwise 

NVARPP  = MAX*JMAX*NH 
BLKCMV  = 2*MAX  CONT  ^ 0 or  VECTOR  ^ 0 
= 0 otherwise 

BLKCMP  = max(NPPR  -r  100)»NPPX,  200*NFPX  )SORT  ^ 0 
= 0 otherwise 


LBUFA  = max(LBUFBl,  LBUFB2,  JMAX) 

LBUFBl  = 6*IMAX  + 2 if  STRESS  0 
= 2*IMAX  otherwise 
LBUFB2  = 6*IMAX  if  MAGFLD  ^ 0 
= 0 otheiwise 

NHEC.  Total  number  of  words  required  for  problem 
= IMAX*JMAX*NH  if  DMEN  = 2 
= IMAX*JMAX*KMAX*NH  if  DIMEN  = 3 
CMECS.  Amount  of  core  required  for  SW  = 5 version. 
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BLKCMG  = 4*IMAX  If  GRAD  0 
= 0 otherwise 

BLKCMC  = 7*IMAX  if  CURL  0 
= 0 otherwise 

BLKCME  = 506  + max(NPPL*NPR,  11  + IMAX)  ELDEN  0 
= 0 otherwise 

NPPR  = MIN(NOP,  NHIC/NPP) 

NPPX  * 2 if  CODE  =*1 

* NPP  CODE  = 2 


4.  CDC  SENSE  SWITCH  CONTROL 

Criterion  functions  in  the  execution  of  HULL  can  be  controlled  by  setting  the 
system  sense  switches.  Sense  switch  settings  during  PLANK  will  cause  the  setting 
of  program  generation  options  SW  and  SWX  as  discussed  In  the  section  on  HULL  and 
KEEL  options. 

During  execution  , the  following  sense  switch  settings  are  recognized. 


Sense  Switch 


Effect 


1 on 

3 on 

4 on 

5 on 

5 off 

6 on 


The  program  will  terminate  at  the  end  of  the 
current  operation  (HULL  and  PULL  only). 

The  program  displays  current  status  (HULL 
and  PULL  only). 

The  program  will  change  output  tapes  (HULL 
only). 

The  disk  version  of  HULL  will  switch  to 
double  buffering  (more  CM  is  required). 

The  disk  version  of  HULL  will  switch  back  to 
single  buffering. 

The  ECS  version  of  HULL  will  "roll"  itself 
out  of  ECS  until  given  a GO  command  by  the 
computer  operator. 


SECTION  IV 
MESH  STORAGE 


The  problem  informatioii  is  stored  both  In  core  and  on  tape.  The  respective  | 

formats  are  shown  below.  i 

1.  IN-CORE  MESH 

The  computational  mesh  is  stored  in  a single  dimensioned  array  called  the 
"H-array. " There  are  NHIC  words  reserved.  The  first  word  for  each  cell  contains 
the  pressure  in  the  cell  followed  by  words  for  the  velocity  components  in  each  dimen- 
sion. Then  comes  the  total  specific  internal  energy  and  the  total  mass  of  all.  H the 
calculation  is  multimaterial  then  the  masses  of  the  individual  materials  are  next 
followed  by  the  individual  material  volumes  if  FLUXER  is  >2,  and  then  the  total 
internal  energies  of  the  individual  materials  if  FLUXER  = 3.  Next  come  the  stress 
components  (if  STRESS  > 0)  followed  by  the  STRAIN  component  (If  STRAIN  > 0) . 

There  are  three  stress  and  strain  components  in  two  dimensions  and  five  in  three  | 

dimensions.  Next  follow  the  magnetic  field  components  if  MAGFLD  > 0 (one  compo-  j 

nent  for  each  dimension).  There  are  five  words  for  radiati(m  Information  if  RAD  = 2.  j 

Finally  one  word  for  detonation  time  if  BURN  = 2.  Most  of  the  referencing  of  the  | 

cell  variables  is  done  through  equivalent  variables.  The  meaning  of  the  equivalent 
H-array  variables  are 

P(N).  Pressure  of  cell. 

U(N).  X component  of  velocity. 

V(N).  y component  of  velocity. 

W(N).  z component  of  velocity. 

XI(N).  Specific  internal  energy. 
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XM(N),  Mass  of  cell. 

XMfN  + I).  Mass  of  material  in  cell. 

NM>  1 

XV(N  + I).  Volume  of  i^^  mateirial  in  cell. 

NM>  1,  FLUXER>  2 

xn(N  + I).  Total  internal  energy  of  1^^  material  in  cell. 
NM>  1,  FLUXER  = 3 


SRR(N) 
SZZ(N) 
SZR(N) 

SXX(N). 
SYY(N) 
SZZ(N) 
SXY(N) 
SXZ(N) 
SYZ(N) 

ERRH(N) 

EZZH(N) 

EZRH(N) 

EXXH(N) 

EYYH(N) 

EZZH(N) 

EXYH(N) 

EXZH(N) 

EYZH(N) 


2-D  stresses 


3-D  stresses 


2-D  strains 


3-D  strains 


^ I 
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FMX(N).  x-component  of  magnetic  field.  MAGFLD  > 0. 

FMY(N).  y^omponent  of  magnetic  field.  MAGFLD  > 0. 

FMZ(N).  Z'component  of  magn^ic  field.  MAGFLD  >0,  DIMEN  = 3. 

ERAD(N) . Radiation  energy  density.  RAD  = 2. 

CV(N).  Specific  heat  in  cell.  RAD  = 2. 

DLTA(N).  Solution  coefficient  for  radiation  equation.  RAD  = 2. 

TK(N).  Temperature  of  cell.  RAD  = 2. 

FYS(N).  Second  soluti<xi  coefficient.  RAD  = 2. 

In  all  cases,  N points  to  the  word  which  precedes  the  first  word  in  the  H-arr^y 
for  that  cell. 

2.  HULL  TAPE  FORMATS 

There  are  two  tapes  which  are  used  by  HULL:  the  dump  tape  and,  if  NSTN  > 0, 
the  station  tape. 

2.1  HULL  Dump  Tape 

The  dump  tape  contains  the  problem  information  for  the  entire  mesh.  Each 
problem  record  set  contains  enough  information  to  restart  the  problem. 

A problem  record  set  begins  with  a four  word  header  record.  The  first  word 
contains  555. 0,  if  a full  problem  record  follows  or  666.0  if  it  is  the  tape  termina- 
tion record.  The  second  word  contains  the  problem  number,  the  third  word  contains 
the  cycle  number  of  the  problem,  and  the  time  is  in  the  fourth  word. 


Then  follows  a 200  word  (character*)  logical  record  containing  the  A BLOCK. 

This  is  followed  by  "NBLKS”  logical  records  which  are  NVARPB  in  length,  where 
NVARPB=NK*lMAX*NROWPB  if  DIMEN=2 

=NH*rMAX*JMAX*NPLPB  if  DIMEN=3 
NBLKS  =NHIC/NVARPB 

If  NOP  0,  then  follows  NPREC  - 1 logical  records  which  are  NPVAR  words  in 
length  and  one  logical  record  which  is  NPVLR  in  length  containing  the  particle  infor- 
mation, where 

NPVAR  = (NfflC/NPP)*NPP 
NPREC  = 1 + (NOP*NPP)/NPVAR 
NPVLR  = NOP*NPP-  (NPREC-1)*NPVAR 

At  the  end  of  each  problem  record  set  HULL  writes  a header  record  with  word  1 
containing  666. 0.  On  a subsequent  data  set  output  this  record  is  overwritten  with  a 
regular  problem  header.  Therefore,  when  the  program  terminates,  the  last  logical 
record  on  the  tape  is  a terminator  record  (1.  e. , a header  record  with  666. 0 in  word 
1).  This  is  used  by  HULL  to  identify  the  end  of  the  problem  when  reading  the  dump  tape. 

2. 2 HULL  Station  Tape 

The  station  tape  contains  a two  word  header  which  identifies  the  tape.  In  the  old 
format,  the  first  word  contains  the  current  VSN  and  the  second  word  contains  the  next 
VSN  for  a continuation  tape.  In  the  new  format,  the  first  word  is  STAT  and  the  second 
word  is  the  problem  number.  HULL  can  differentiate  between  the  two  formats  by  the 
manner  it  received  the  station  tape  (new  format  is  used  for  tapes  that  come  from  BOW  or 
on  IBM  systems). 

The  header  record  is  followed  by  a 200  word  logical  record  containing  the  ZBLOCK. 
Then  comes  the  particle  information  in  the  same  format  as  on  the  dump  tape.  Then 
follow  logical  records  of  1024  words  containing  the  station  information  using  the  format 
shown  in  figures  13-18.  The  station  tape  is  terminated  by  an  end  of  ffle. 


* 


A character  word  is  one  machine  word  on  CDC  system  and  is  a double  word  (2  machine 
words)  on  an  IBM  system. 


Density  (real) 

Station  No. 

Distance  station  moved  in  x direction 

2RHU 

^ Remaining  NVARST-2 

f..  words  of  stress  station  data 

Figure  15.  CDC  Station  Data  (STRESS  ^ 0) . 


Density  (real) 


Distance  station  moved  in  x direction. 


Remaining  NVARST-3 
words  o£  stress  station  data 


Station  number  (integer) 


2HHU 


ni 


Pressure  (real) 


Density  (real) 


X component  of  velocity  (real) 
y component  of  velocity  (real) 


2 component  of  velocity  (real) 

(This  word  is  Included  only  if  DIMEN  « 3.) 

Figure  17.  CDC  Station  Data  (STRESS  > 0) . 


Station 
Number 

Z of  material 
. 2 Integer 


Pressure  (real) 


Density  (real) 

X component  of  velocity  (real 

) 

y component  of  velocity  (reaJ 

) 

z component  of  velocity  (rea] 

(This  word  is  included  only  1 

) 

f DIMEN  - 3.) 

Station  number 

Z of  material  2 Integer 

Figure  18.  IBM  Station  Data  (STRESS  ■ 0) . 
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SECTION  V 

HULL  INITIALIZATION  (KEEL) 

A HULL  problem  is  initialized  by  running  the  KEEL  program.  An  outline  of 
the  sequence  of  the  KEEL  program  is  shown  in  figure  19.  Three  sets  of  data,  each 
identifled  by  an  initial  keyword,  are  required  for  KEEL  Input.  This  data  set,  which 
must  appear  in  order,  respectively,  define  the  problem  parameters,  the  spatial 
mesh  for  the  differencing  scheme  and  the  initial  condition.  The  input  data  is  described 
as  follows. 

1.  DEFINING  THE  PROBLEM 

The  input  which  follows  the  keyword  KEEL  if  processed  by  KEEL  to  define  the 
problem.  The  problem  definition  processing  is  terminated  by  the  keyword  MESH. 

The  problem  definitions  consist  of  setting  ZBLOCK  parameter  values,  specifying 
a title  for  the  problem  and  defining  materials  (if  EOS  = 6). 

ZBLOCK  parameter  values  are  defined  by 

pname  = pvalue 

where  pname  is  the  name  of  any  ZBLOCK  parameter  described  in  section  ITT.  2.1, 
and  pvalue  is  the  value  of  the  parameter. 

Those  parameters  which  are  not  defined  will  default  to  zero  or  the  values 
specified  in  section  2.4.  However,  it  is  necessary  to  define  PROB. 

When  the  multimaterial  equation  of  state  is  selected  (EOS  = 6),  the  materials 
must  be  specified.  The  syntax  is 

matid  = matn 

where  matid  is  a material  identifier  (refer  to  table  2 for  material  identifiers)  and 
mate  is  the  number  to  be  assigned  to  the  material.  They  must  be  NM  materials 
specified,  with  each  assigned  a unique  number  between  1 and  NM. 


The  parameters  RERUN  and  DENSITY,  used  by  BOW  but  ignored  by  KEEL,  may 
also  be  included  in  the  problem  definition.  RERUN  overrides  a protective  function  of 
BOW  and  permits  KEEL  to  be  executed  although  data  already  exist  for  the  problem. 
DENSITY  overrides  the  default  tape  density  in  BOW.  Syntax  for  this  parameter  is 


described  in  subsection  rv.1.3. 


2.  DEFINING  THE  MESH 

The  keyword  MESH  begins  the  mesh  definition.-  In  any  direction,  the  mesh 
may  be  defined  by  a constant  grid,  constant  subgrid,  or  explicit  definition  of  the 
boimdaries.  A constant  grid  is  defined  by 

MESH 

IX0=xJ  XMAX  = x [YO  =y  ] YMAX  = y 
o m o m 

[ZO  = z ZMAX  = z ] 
o m 

Here  the  mesh  is  divided  into  iq  cells  of  equal  width:  dq  = (q^  - q^  )/iq,  where 

q = x,y,  z and  iq  = IMAX,  JMAX,  KMAX,  respectively. 

To  generate  a constant  subgrid,  the  syntax  is 
MESH  CONSTANT  SUBGRED 

[XO  = X ] XMAX  = X [XMAXLIMIT  = x J [XOLIMIT  = x J NX  = n 
o m ml-'  ^ o£  x 


RXPOS  = r 


RXNEG  = r 


[YO  = y^]  YMAX  = y^  [YMAXLEVHT  = y^]  [yOLIMIT  = y^^  NY  = n 


RYPOS  = r 


RYNEG  = r 


[zO  = z J ZMAX  = z [ZMAXLIMIT  = x J [ZOLIMIT  = z J NZ  = n 
o m nw  oi  ! 


RZPOS  = r 


RZNEG  = r 


In  each  direction,  the  region  from  to  consists  of  nq  cells  of  equal  width. 

From  q^  to  q^^  , the  successive  cell  widths  have  the  ratio  r^,  and  in  the  negative 

direction  from  q to  q . successive  cell  widths  have  the  ratio  r . where  q is  x,  y,  or  z. 
^o  ^oi  q-  ’ 

To  explicitly  describe  the  mesh,  the  syntax  is 
MESH 

NX=n  DX  = d ...  NX  = n DX=d 

xn 
yn 
zn 


XO 

NX  =n  , 
xl 

DX  = d , ... 

xl 

NX  = n 
xn 

DX  =d 

YO  =y 

o 

NY  = n , 

yi 

DY  = d , ... 

yi 

NY  = n 
yn 

DY  =d, 

II 

o 

N 

NZ  = n , 
zl 

DZ  “ d _ • • • 

zl 

NZ  = n 

zn 

DZ  =d 

This  generates  a mesh  in  the  q(q  = x,y,  z)  direction  which  begins  at  q^  and  consists 

of  successive  groups  of  n^^  cells  of  equal  width  d^^,  i = 1,  . . . n.  The  n^^  are 

independent,  but  En.  = IMAX,  En  = JMAX,  and  En  , = KMAX. 

xi  yi  ^ 


3.  GENERATING  THE  INITIAL  CONDITIONS 

The  actual  generation  of  the  initial  conditions  is  initiated  by  the  keyword 
GENERATE  and  terminated  by  the  kejrword  END.  In  the  generation  process,  the 
mesh  is  initialized  and  trace  particles  or  sensor  stations  are  included  in  the  mesh. 
The  mesh  initial  conditions  are  defined  either  by  an  isothermal  sphere  superimposed 
on  ambient  conditions  by  data  from  other  calculations  or  by  use  of  the  package  options. 


3. 1 Isothermal  Sphere  Initialization 

The  syntax  for  Isothermal  sphere  initialization  is 


GENERATE 

[iSOENERGY  = e]  [YIELD  = yj  [HOB  = h^] 
[XOB-X^]  [YOB-y^]  [T=t^] 


where 

e is  the  Isothermal  sphere  energy  density  (ergs/g).  The  default  is  2 x 10 
ergs/g . 
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is  the  device  yield  in  KT.  Default  is  the  value  set  in  ZBLOCK; 


h is  the  height  of  the  burst  in  kilometers.  Default  is  0. 
b 


is  the  X coordinate  of  the  burst  in  centimeters  (three  dimensional  mesh 
only.  Default  is  0. 


y.  is  the  y coordinate  of  the  burst  in  centimeters  (three  dimensional  mesh 
b 


only.  Default  is  0. 


t is  the  initial  time.  If  set  in  ZBLOCK  then  that  value  is  used.  Otherwise 
b 


it  is  calculated. 


The  KEEL  generation  routine  calculates  the  ambient  density  at  altitude  h^ 
by  using  the  atmosphere  routine  that  was  selected. 


The  radius  of  the  isothermal  sphere  is 


1 X 10^®  y 


r,  = 


‘ V 


V 


The  initla]  conditions  then  represent  a sphere  of  air  of  radius  r^,  uniform  energy  e, 
and  density 
phere  routine. 


and  density  p , superimposed  on  air  with  ambient  conditions  defined  by  the  atmos- 
b 


3.2  Initial  Conditions  from  Other  Calculations 


KEEL  can  use  information  from  other  calculations  as  initial  conditions  for  a 
HULL  problem.  The  Initial  conditions  can  be  from  general  card  input,  a KNFIRE 
output  deck,  a DYTSAP  dump  tape,  a SAP  dump  tape,  a SPUTTER  dump  tape, 
another  two-dimensioned  HULL  dump  tape,  or  an  LLL  RAD9  tape.  Ambient  conditions 
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defined  by  the  atmosphere  routine  are  used  for  all  of  the  mesh  outside  of  the  region 
defined  by  the  other  calculation.  This  form  of  initialization  is  begun  by  the  ke3rword 
FIREIN  with  some  of  the  following  sets  of  parameters. 

3.2.1  General  Card  Input 

The  S3mtax  of  general  card  input  is 
CARDINPUT 

followed  by  sets  of  card,  each  of  ^ich  contains  a set  of  values  r,  e,  p,  v,  IF,  vhere 

r is  the  radius  in  a one-dimensioned  mesh  in  cm; 
e is  the  internal  energy  density  in  ergs/g; 

P is  the  density  in  g/cm  ; 

V is  the  radial  velocity  in  cm/ s; 

IF  is  the  termination  variable; 

/ 0 means  this  is  the  last  card. 

The  format  for  these  cards  is  (4E12.5,I5).  This  input  generates  a sphere  of  air  as 
described  in  the  cards  on  a mesh  of  ambient  air. 

3.2.2  SAP,  DYTSAP  or  RAD9  Input 

KEEL  will  generate  a sphere  in  a two-  or  three-dimensioned  mesh  from  a 
SAP,  DYTSAP  or  RADS  tape  with  the  following  command 

jSAP  DYTSAP  RADSf  TAPE  = VSN 
where  VSN  is  the  VSN  of  the  SAP,  DYTSAP  or  RADS  tape. 
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> mWkt 


3.2.3  SPUTTER  toput 

Initialization  from  a one-dimensional  SPUTTER  problem  is  performed  by  the 
command 

SPUTTER  FB  = fj^ 

where  fj^  is  the  FB  identifier  of  the  SPUTTER  problem. 

3.2.4  KRFIRE  h^ut 

Initialization  from  a ENTIRE  output  deck  is  performed  by 
ENTIRE  CARDS  =n 

c 

where  n is  the  number  of  cells  in  the  ENTIRE  mesh  on  the  cards  that  follow, 
c 


3.2.5  Scaling  of  Input  Conditions 

When  it  is  required  that  the  it^t  conditions  be  scaled  from  the  yield  and  altitude 
of  an  input  one-dimensional  calculation  to  the  yield  and  altitude  of  the  HULL  problem, 

KEEL  will  perform  standard  yield  and  altitude  scaling  by  the  command 

SCALE  [ YIELDIN  = y^] 

This  command  follows  any  of  the  one-dimensional  calculation  initializations.  Here 
y^  is  the  yield  of  the  device  in  the  input  data. 

3.2.6  HULL  Initialization  ^ 

A three-dimensional  HULL  calculation  can  be  initialized  from  a two-dimensional 
HULL  calculation  and  a two-dimensional  HULL  calculation  can  be  initialized  from 
another  two-dimensional  HULL  calculation  with  a different  mesh  by  the  command 

HULL  TAPE  = vsn 

where  vsn  is  the  VSN  of  the  HULL  dump  tape  to  be  used.  < 
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3,2,7  Geometry 


initialization  from  previous  calculations,  the  region  thus  initialized  must  be 
defined.  The  default  bounds  for  the  region  are  determined  by  the  maximum  extent 
of  the  calculation  data.  Thus,  for  a one*<limensional  pie^ous  calculation,  the  initial- 
ized region  is  a sjdiere  centered  at  the  burst  point  (x  = 0. 0,  y = HOB  in  two  dimensions; 
X = XOB,  y = YOB,  z = HOB  in  three  dimensions).  For  a two-dimensional  previous 
calculation,  the  initialized  region  is  a cylinder  with  bounds  corresponding  to  the  edges 
of  the  previous  calculation  mesh. 

The  initialized  region  may  be  redefined  by  inclusion  of  a geometry  description 
after  the  FIREIH  data.  Geometry  descripticms  are  discussed  in  subsection  3.4.  For 
this  application  the  region  described  must  be  wholly  contained  within  the  data  region. 


3. 3 Package  Option  for  Complex  Geometry 


The  most  powerM  method  for  defining  the  initial  conditions  in  KEEL  is  the 
PACKAGE  option.  The  region  of  the  mesh  to  be  initialized  is  described  by  beginning 
with  the  keyword  PACKAGE  followed  by  the  name  of  the  material  to  be  inserted, 
optional  parameters  describing  the  initial  state,  and  geometry  descriptions  defining 
the  region  being  Mtialized  by  PACKAGE. 


PACKAGE  matid 


where  matid  is  the  HULL  material  identifier  for  the  material  to  be  Inserted.  This 
is  required.  (See  table  2 for  a list  of  current  materials  and  identifiers. ) 


Vj  are  the  faitiai  velocity  components  of  the  inserted  material  (in  two 

dimensions  v,  = radial  velocity  and  v_  = axial  velocity,  while  in 

three  dimensions  v = v , v„  = v , and  v_  = v. ) Any  velocity  not 
1 X 2 y o 

specified  receives  a default  value  of  0 (cm/s), 
e^  is  the  initial  internal  energy  of  the  inserted  material.  If  this  is  not 
specified,  the  ambient  value  is  used  (ergs/g). 
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p is  the  initial  density  of  the  material  being  inserted.  The  default  value  is 

3 

the  ambient  density  (g/cm  ). 

The  material  identification  and  initial  state  parameters  are  followed  by  the 
geometry  description. 

3.4  Geometry  Description 

Each  geometry  description  consists  of  one  or  more  geometry  definitions.  A 
geometry  definition  begins  with  <me  of  the  geometry  keywords  and  includes  parameters 
defining  a shape  associated  with  that  keyword.  The  described  region  is  the  region 
covered  by  the  first  geometry  definition,  but  excluding  any  region  which  is  within 
any  of  the  subsequent  definitions.  Thus,  the  region  is  described  by  a single  region 
with  zero  or  more  excluded  areas. 

The  current  geometry  keywords  are  RECTANGLE,  CIRCLE,  TRIANGLE, 
PARABOLA,  and  HYPERBOLA.  The  syntax  associated  with  each  keyword  is 
described  below.  Alternative  forms  for  parameters  are  grouped  within  curly  brackets; 
square  brackets  indicate  that  the  parameters  are  optional  and  defaults  are  provided. 

3.4.1  RECTANGLE 

This  definition  is  used  to  establish  a rectangle  in  two  dimensions  and  a rectangu- 
lar prism  in  three  dimensions.  The  syntax  is 


RECTANGLE 
^l=x^  XL=Xj 

X0  = x^ 

XLEFT  = x^fj 

|X2-X2 

XR=X2 

XRIGHT 

tYl-yj 

YB  = yj 

Y0=y^ 

YBOT  = y^  YBOTTOM  = y^^ 

1^2 -^2 

YT=y2 

YA=y2 

YTOP  = y^ij 

ZB  = z^ 

Z0  = z^ 

ZBOT  = Zj  ZBOTTOM  = z^[| 

N = *2 

ZT  = 22 

ZTOP  = 

^.3 

■ ^ar -T . 
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where  (refer  to  figures  20  and  21) 


is  the  TniniTniim  extent  of  the  figure  in  the  x dimension  (radial  dimension 
in  two  dimensions  and  x dimension  in  three  dimensions); 
is  the  maximum  extent  of  the  rectangle  in  the  x dimension; 
is  the  miriiTnum  extent  of  the  rectangle  in  the  y dimension  (axial  dimension 
in  two  dimensions  and  y dimension  in  three  dimensions); 

y^  is  the  maximum  extent  of  the  rectangle  in  the  y dimension; 

is  the  maximum  extent  of  the  rectangular  prism  in  the  z dimmsion  for  a 
three-dimensional  mesh; 

z^  is  the  maximum  extent  of  the  rectangular  prism  in  the  z dimension. 


The  defaults  are  x,  = x . , x„  = x , y, 
1 min  2 max  1 

and  z = z 

2 max 


^min’  ^2  ^max'  ^1  ^min’ 
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3.4.2  CIRCLE 

This  description  defines  a circle  in  the  two-dimensional  mesh  and 
the  three-dimensional  mesh.  The  syntax  for  this  description 


CIRCLE 


II 

i>4 

o 

XCNTR  =x 

c 

XC  ENTER  = X 

c 

XCENT  = X \ 
c*. 

Ifi-y, 

YC=y^ 

YCNTR  * y 

c 

YCENTER  = y 

c 

YCENT  = y^l 

C • 

|zi  = -. 

ZC  = z 

c 

ZCNTR  = z 

c 

ZCENTER  = z^ 

ZCENT  = zj 

II 

RAD  = r 

RADIUS  = t\ 

where  (refer  to  figures  22  and  23) 

X is  the  X coordinate  (radial  in  two  dimensions)  of  the  center  of  the  sphere; 
c 

y is  the  Y coordinate  (axial  in  two  dimensions)  of  the  center  of  the  sphere; 
c 

z is  the  Z coordinate  (three  dimensions  only)  of  the  center  of  the  sphere; 
c 

r is  the  radius  of  the  circle  (sphere). 

There  is  no  default  for  r but  the  other  defaults  are  x^  = 0 and  y^  = HOB  In  two 

and  X = XOB,  y = YOB,  and  z = HOB  in  three  dimensions. 

X c C 

3.4.3  TRIANGLE 

This  geometry  description  is  only  available  for  the  two-dimensional  mesh.  The 
description  is  of  a triangular  area  in  the  mesh.  The  syntax  is 

TRIANGLE 

XI  = Xj  Y1  = y j X2  = Xg  Y2  = 

^3=*3  ^^"^3 

where  (see  figure  24)  x^,  y^  are  coordinates  of  the  comer  of  the  triangle.  There 
are  no  default  values  for  a triangle  description. 
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3.4.4  PARABOLA 

This  description  is  for  a parabola  in  the  Y direction  in  two  dimensions  and  a 
parabolic  cylinder  in  three  dimensions  (see  figures  25  and  26).  The  S3mtax  is 

PARABOLA 
[A  = a]  [B  = b]  [C  = c] 

where  a,  b,  and  c are  coefficients  of  the  equation 

2 

(y  - a)  = b(x  - c) 

Defaults  are  a = 0.0,  b ^ 1.0,  and  c = 0.0. 

3.4.5  HYPERBOLA 

This  description  set  defines  a hyperbola  in  two  dimensions  and  a hyperbolic 
cylinder  in  three  dimensions  (see  figures  27  and  28).  The  syntax  is 

HYPERBOLA 

[A  = a]  [B  = b]  [C  = c]  [D  = d] 
where  a,  b,  c,  and  d are  the  coefficients  of  the  equation 

_ (^-  0)1 
2 2 
b d 

The  defaults  are  a = 0.0,  b = 1.0,  c = 0.0,  and  d = 1 .0 . 

3.5  Particle  Generation 

Tracer  particles  (CODE  = 1)  are  generated  by  the  command 

PARTICLE(S)  [NSC  = n^]  [NSR  = n J [NSP  = n^  ] 

followed  by  a geometry  desorption.  The  routine  wUl  put  n particles  per  column 

c 

(I—x  direction),  n^  particles  per  row  (J— direction)  and  n^  particles  per  plane 

(K— -I  direction  In  three  dimensions  only)  within  the  region  specified.  H no  geometry 

description  is  provided,  the  region  last  defined  by  a geometry  description  or  by 

default  is  used.  The  defaults  for  n , n , and  n are  each  = 1. 

c’  r _ p 
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3.6  Station  Generation 


For  purposes  of  comparing  calculations  to  experiment,  HULL  provides  for 
continuous  sensor  monitoring  at  positions  called  stations.  State  parameters  at  the 
stations  are  recorded  on  a "station  tape"  data  file.  The  state  parameters  are 
scanned  at  each  cycle  of  the  calculation.  However,  data  are  recorded  only  for  those 
stations  that  show  a change  of  more  than  1%  in  any  parameter  from  the  values  for 
that  station  last  previously  recorded  on  the  station  tape.  State  variables  saved  are 
density,  pressure,  and  velocity  for  nonsolid  problems  (STRESS  = 0).  hi  addition, 
stress  components  are  saved  for  solid  problems.  There  are  two  types  of  stations: 
Eulerlan  and  Lagranglan.  The  Eulexlan  stations  do  not  move  vdiile  the  Lagrangian 
stations  move  with  the  material  flow.  Stations  are  created  by  the  keyword  STATIONS 
followed  by  one  or  more  coordinate  specifications: 


STATIONS 

{(XS=x^. 


••*m’ 

XS  =; 


(YS=yj^...y^  » AS=Xj^. 


(XL 


YL=yi...y^) 


(YL=y_...y  , XL=x,...x  )} 

I n 1 m ' 

vdiere  x^  and  are  coordinates  of  the  stations.  Here  the  parentheses  delimit  alter- 
nate forms  and  are  not  part  of  the  syntax.  XS  and  YS  are  used  for  fixed  stations 
while  XL  and  YL  are  used  for  Lagranglan  stations.  Each  coordinate  specification 
causes  generation  of  mxn  stations  (m  > 1,  n > 1).  Each  x-coordinate  is  paired  with 
every  y-coordlnate  in  the  specification. 


3.7  Termination  of  Generation 

Multiple  sequences  of  GENERATE,  FIREIN,  PACKAGE,  PARTICLE,  and 
STATION  may  be  used.  The  generation  process  Is  terminated  by  the  keyword  END 
or  the  end  of  file  as  detected  by  the  coded  read  (1.  e. , an  EOR  on  INPUT  for  CDC 
systems). 
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4. 


KEEL  OUTPUT 


A KEEL  run  produces  two  types  of  output:  printed  and  taped.  The  tape  output 
consists  of  a dump  tape  describing  the  mesh  in  such  a manner  that  HULL  can  start 
the  problem  and,  if  NSTN  >0,  a station  tape  with  the  Z BLOCK  and  particle  positions 
written  on  it.  Printed  output  gives  a summary  of  the  initialization  performed  and  the 
amount  of  energy  and  mass  inserted  in  the  mesh.  In  addition,  a printout  of  one  verti- 
cal colunm  in  the  mesh  and  a printer  plot  of  the  entire  mesh  is  produced. 


SECTION  VI 


HULL  EXECUTION 


The  flow  of  the  Hull  program  Itself  is  shown  In  figure  29.  The  program  requires 
an  existing  dump  tape  and,  If  NSTN  > 0 in  the  dump  t^e  ZBLOCK,  an  existing  station 
tape.  These  tapes  must  have  been  generated  during  a previous  HULL  run  or  by  KEEL. 

HULL  searches  for  and  reads  the  first  input  record  beginning  with  the  keyword 
HULL.  The  ii^t  data  Includes  startup  infomation  and  control  information. 

1.  PROGRAM  STARTUP  INFORMATION 

This  information  follows  the  ke3rword  HULL  and  is  terminated  by  an  end  of  file 
(end  of  record  on  INPUT  in  CDC)  or  by  the  keyword  INPUT.  The  startup  keywords 
are 


PROB  = pnum 


or 

PROBLEM  = pnum 

where  praim  is  the  problem  number.  HULL  verifies  that  the  t^e  mounted  is  the 
ri^it  problem  before  proceeding.  This  information  is  required  since  HULL  will  not 
proceed  without  a problem  number.  On  those  systems  using  a tape  library,  BOW 
wiU  use  the  problem  number  to  select  the  required  tapes  from  the  tape  library. 

[T=t] 

This  specifies  the  problem  time  where  the  restart  is  to  begin.  HULL  will  restart 
the  problem  at  the  first  diunp  which  has  a time  greater  than  t or  at  the  last  diunp 
on  the  t^e,  whichever  comes  first. 


r 


» 


Figure  29.  HULL  Execution  Sequence 
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^ mi  r I r iciiaBrr  nJ — 


Update 

Cycle  Variables 


Print  Output  ;j 

and  Writer 

Dump  Tape  I 

if  Required 


Wrtte 
New  Cycle 
Information 


[cycle  = nc]  This  specifies  the  cycle  number  for  the  restart.  HULL  will 
restart  &om  the  first  dump  where  the  cycle  number  is  greater  than  nc  or  the  last 
dump  on  the  tape,  whichever  is  first. 

If  the  cycle  or  time  is  not  given,  or  if  BOW  (CDC  system  only)  shows  that  the 
last  previous  start  was  a cycle  or  time  start  from  the  same  cycle  or  time,  HULL 
will  restart  from  the  last  dump  on  the  tape. 

2.  PROGRAM  CONTROL  INFORMATION 

The  user  has  control  over  the  execution  of  HULL  in  two  ways.  He  may  modify 
the  ZBLOCK  parameters,  and  he  may  set  local  parameters  for  the  current  run. 
Parameter  modification  data  are  placed  after  the  keyword  INPUT  that  terminates 
the  startup  Information. 

3.  ZBLOCK  MODIFICATION 

Any  parameter  In  the  ZBLOCK  may  be  modified  by  specifying  the  parameter 
name  followed  by  the  new  value.  An  example  of  the  syntax  is 

TTSTOP  = ip 

where  tp  is  the  maximum  CPU  time  In  hours  for  this  problem. 

The  user  should  realize  that  the  following  ZBLOCK  parameters  should  not  be 
changed  from  their  KEEL  values:  CODE,  DIMEN,  IMAX,  JMAX,  ISLAND,  KMAX, 
NH,  NM,  NOP,  NROWPB,  NPLPB,  NPP,  NSTN,  NVARST,  and  PROB.  Tn.  addition, 
the  user  must  exercise  extreme  care  in  modifying  BURN,  EOS,  FAIL,  FLUXER,  IQ, 
JQ,  KQ,  MAGFLD,  and  RAD.  Finally  the  following  ZBLOCK  parameters  are  main- 
tained by  HULL  and  should  not  be  modified  by  the  user:  CYCLE,  DT,  ELC,  ETH, 
MLC,  MTH,  SUME,  T,  TLC,  TTIME,  TTIME6,  and  TTIME7. 


4. 


LOCAL  MODIFICATIONS 


These  are  two  types  of  local  modification.  First,  local  variables  may  be  set. 
These  are 

MRELER  = max 

e 

this  sets  the  maximum  relative  error  allowance  in  total  energy  or  mass  (default  = 1.0 
X 10“^®  for  CDC  and  1.0  X 10 for  IBM). 

CSTOP  = ncy 

This  parameter  sets  the  cycle  at  which  the  calculation  is  to  stop.  The  default  is  no 
cycle  stop. 

RTSTOP  = t 

r 

t^  is  the  maximum  CPU  time  in  hours  for  the  current  run  (default  is  no  limit) . 
DCYST  = nscy 

nscy  is  the  maximum  number  of  cycles  of  the  problem  that  HULL  will  calculate 
in  this  run  (default  no  limit) . 

TIMES  = pt 

If  pt  = 1,  HULL  will  produce  a printed  output  and  a dump  in  TAPE4  whenever 
the  problem  time  corresponds  t standard  high-altitude  times  (36  times  per  decade 
evenly  spaced  logarithmically). 

If  pt  = 2,  HULL  will  produce  output  and  dumps  at  problem  times  of  10  ms  and 
30  ms,  every  0.1  s from  0.1  s through  1.2  s,  and  every  0.5  s from  1.5  s through 
6.0  s. 
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If  pt  = 3,  HULL  will  produce  output  and  dumps  at  regular  intervals  of  problem 
time.  The  interval  is  specified  by  the  keyword  DMPINT. 

The  default  is  pt  = 1 

DMPINT  = dt 

where  dt  is  the  output  and  dump  problem  time  interval  when  TIMES  = 3.  All  dumps 
except  termination  dumps  will  be  at  problem  times  which  are  a multiple  of  dt. 

Finally,  the  user  m^  specify  the  yield  strength  for  the  solids  in  the  problem. 
The  keywords  to  begin  the  strength  definition  process  are 

MATPROP  MAT  = matn 

where  matn  is  the  number  that  has  been  assigned  to  the  material  in  the  problem. 
YLDST  = yld 

where  yld  is  a initial  yield  strength  for  the  material. 

WORK  [yLDMAX  = yldmax]  [e  PL  AST  = emax] 

This  Instruction  allows  the  yield  strength  to  vary  with  energy.  Figure  30 
shows  the  relationship  of  the  internal  energy  e and  the  3deld  strength  due  to  Yw. 
Here  is  the  ambient  internal  energy. 

SOFT  YFRACl=yfj  IFRACl  = ef^ 

YFRAC2  = yfg  IFRAC2  = ef^ 

This  input  allows  the  user  to  specify  the  thermal  softening  of  solids.  Figure  31 
shows  the  relationship  of  the  yield  strength  to  the  internal  energy,  e.  Here  e^  is  the 
internal  energy  which  produces  1 atmosphere  pressure  at  ambient  density  and  e^ 
is  the  internal  energy  at  which  melting  occurs. 

ENDPROP 

This  terminates  the  material  properties  modification  section. 
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SECTION  vn 
PULL  EXECUTION 

The  structure  of  the  PULL  program  is  shown  inflgures  32  and  33.  There  are 
two  types  of  plotting  routines:  plotting  the  dump  tape  information  and  plotting  the 
information  on  the  station  t^e.  The  particular  type  used  is  selected  by  PLANK 
from  the  PULL  input.  PULL  searches  for  and  reads  the  first  input  record  begin- 
ning with  the  keyword  PULL. 


1.  DUMP  TAPE  PLOTS 


Plots  of  dump  tape  information  are  the  default  type.  The  data  describing  a set 
of  plots  are  preceded  by  the  keyword  PULL.  Each  successive  use  of  PULL  in  the 
input  record  will  initiate  generation  of  a new  set  of  plots.  The  options  describing  the 
set  of  plots  may  be  Inserted  in  any  order,  with  one  exception.  Syntax  for  the  options 
is  described  below. 


PROS  = pnum 


or 


PROBLEM  = pnum 

This  specifies  the  problem  number.  If  it  is  given,  PULL  checks  this  against  the  problem 
number  in  the  ZBLOCK.  Otherwise  there  is  no  checking,  i.  e. , PULL  will  plot  the 
tape  that  is  provided.  On  systems  using  the  tape  library,  BOW  will  use  the  problem 
number  to  select  the  required  tapes  for  plotting. 

DENSITY  = |HY  PE} 

This  specifies  the  density  of  tape  when  not  using  the  tape  library  (CDC  systems 

only). 


STIME 


This  specifies  that  only  standard  times  are  to  be  plotted;  dumps  at  nonstandard 
times  such  as  run  termination  times  are  skipped. 


no 


DTIME  = 

Here  is  the  miniTnuTn  problem  time  Interval  between  dumps  selected  for 
plotting. 

FTIME  =tj 

This  parameter  specifies  Hie  first  time  to  be  plotted.  Default  is  the  beginning 
the  tape  (or  of  the  problem  if  BOW  is  used) . 

LTIME  =t 

e 

This  parameter  specifies  the  last  problem  time  to  be  plotted.  Default  is  end  of 
tape  (or  of  the  problem  if  BOW  is  used). 

CTIME  =t,,  t„,  ...  t 
la  n 

The  t^  are  times  to  be  plotted  in  order  of  Increasing  value.  This  parameter,  if 
used,  must  be  the  last  option  inserted  for  the  set  of  plots. 

If  neither  STIME,  CTIME,  nor  LTIME  are  specified,  all  dumps  on  tape  from  the 
first  time  to  last  time  are  plotted. 

HEADER 

This  instructs  PULL  to  use  the  next  card  in  the  input  as  the  title  for  the  plots 
rather  than  the  title  in  the  ZBLOCK.  No  options  may  appear  after  HEADER  on  the 
same  card. 

xxxHHST  [yj,  y^.  y^j  ] 

xxxVHST  [Xj,  Xj,  x^  ] 

These  keywords  request  the  generation  of  horizontal  or  vertical  histograms  at 
lines  between  yj(Xj)  and  ^c^^c^  ^ Increments  of  y^(Xj)«  xxx  specifies  the  data  tape 
to  be  plotted.  See  table  3 for  data  types.  Default  is  one  histogram  for  row  1 (column). 

xxCONT  [Cj^,  Cg,  ...  c^] 

This  kejrword  requests  a contour  plot  with  contour  values  c^.  (Default:  prc^am 
calculates  contour  values  from  data. ) xx  speciHes  the  data  to  be  plotted  (table  3) . 
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TABLE  3 


PLOT  DATA  SELECTION  TABLE 


XXX 

Data 

Plot  Available 

p 

pressure 

HHST,  VHST,  CONT,  GRAD 

u 

x(r)  component  of  velocity 

HHST,  VHST,  CONT,  GRAD 

V 

y(r)  component  of  velocity 

HHST,  VHST,  CONT,  GRAD 

E 

specific  ambient  enei^ 

HHST,  VHST,  CONT,  GRAD 

D 

density 

HHST,  VHST,  CONT,  GRAD 

T 

temperature 

HHST,  VHST,  CONT,  GRAD 

M 

material  density 

HHST,  VHST,  CONT,  GRAD 

K 

kinetic  energy 

HHST,  VHST,  CONT,  GRAD 

RP 

relative  pressure 

HHST,  VHST,  CONT,  GRAD 

RE 

relative  internal  energy 

HHST,  VHST,  CONT,  GRAD 

RD 

relative  density 

HHST,  VHST,  CONT,  GRAD 

SRR 

radial  stress  deviator 

HHST,  VHST 

SZZ 

axial  stress  deviator 

HHST,  VHST 

SHH 

hoop  stress  deviator 

HHST,  VHST 

SRZ 

shear  stress 

HHST,  VHST,  CONT 

S2I 

second  invariant  stress 

HHST,  VHST,  CONT 

SPl 

maximum  principle  stress 

HHST,  VHST,  CONT 

SP2 

minimum  principle  stress 

HHST,  VHST,  CONT 

ERR 

radial  strain  deviator 

HHST,  VHST 

EZZ 

axial  strain  deviators 

HHST,  VHST 

EHH 

hoop  strain  deviators 

HHST,  VHST 

ERZ 

shear  strain 

HHST,  VHST,  CONT 

E2I 

second  invariant  strain 

HHST,  VHST,  CONT 

EPl 

maximum  principle  strain 

HHST,  VHST,  CONT 

EP2 

minimum  principle  strain 

HHST,  VHST,  CONT 

- 


I 


1 


; ( 


1 
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xxxGRAD 


This  keyword  requests  gradient  plots,  xxx  specifies  the  data  to  be  plotted. 
WECT 

This  is  a request  to  plot  velocity  vectors. 

SVECT 

This  is  a request  to  plot  the  axial  plus  radial  stress  vector. 

PART 

This  parameter  requests  that  the  tracer  particles  be  plotted  with  all  contour  and 
vector  plots  and  separately. 

PARTI 

This  keyword  requests  a separate  particle  plot  only. 

DUSTY 

This  is  a request  for  radar  cross  section  and  absorption  only.  It  is  sqjplicable 
only  for  plots  from  DUSTY  tapes. 

YDFRAC  = y^ 

This  specifies  the  fissicm  fraction  for  electron  density  plots  (default  = 1.0). 
XMINGRD  = X 

mn 

YMINGRD  = y 

TTItl 

XMAXGRD  = X 

mx 

YMAXGRD  = y 

mx 

These  keinvords  are  to  specify  the  minimum  or  maximum  coordinate  values  for 
contour  and  vector  (gradient)  plots.  If  not  specified  the  entire  mesh  is  plotted. 


I 

-I 


REDUCE 

This  option  sets  XMAXGRD  and  YMAXGRD  to  include  only  the  significant 
portions  of  the  mesh. 


BOTOK 


When  used  with  REDUCE  this  parameter  sets  YMINGRD  to  include  only  the 
significant  portions  of  the  mesh. 


FIREB 


This  keyword  causes  PULL  to  set  XMAXGRD,  YMAXGRD,  JOdINGRD,  and 
YMINGRD  such  that  the  plotting  grid  is  centered  on  the  fireball  with  a size  2 r by 
3.5  r,  where  r is  the  fireball  radius. 


sh(x;k 


This  parameter  causes  PULL  to  set  XMAXGRD,  YMAXGRD,  XMINGRD,  and 
YMINGRD  to  include  only  the  shock  at  the  bottom  of  the  mesh  (overridden  by  FIREB). 


LOGV 


This  option  specifies  that  logarithmically  spaced  contours,  with  values  1.0 


X 10*^  and  3.0  x 10*^)  are  to  be  used. 


LOGD 


This  option  specifies  that  the  natural  logarithm  of  the  data  is  to  be  plotted  as 
contour  plots. 


ICTRS  = n 


This  specifies  the  number  of  contours  In  the  contour  plots  (minimum  = 2,  maxi- 
mum = 20,  and  default  = 10). 


r i 


PLTINC  = Pj 

This  specifies  the  step  size  of  the  plotter  and  is  used  by  the  contour  routines  to 
determine  its  tnlntmum  step. 

NOCURV 

This  paranaeter  disables  the  nonlinear  interpolation  within  a cell  on  contour 

plots. 

COORD 

This  keyword  causes  the  coordinates  of  the  minimum  and  maximum  values  to 
be  printed  on  the  contour  plots. 

NMAT  = mni,  . . . mnn 

This  option  allows  the  user  to  specify  the  material  to  be  included  in  density 
plots.  A ->1  (minus  one)  separates  material  groups  and  is  plotted  as  the  total  density 
of  the  materials  in  each  group  or  plotted  in  the  density  plots.  If  not  specified  then 
PULL  will  produce  plots  of  total  density. 

NPART  = np 

This  specifies  the  selection  of  particles  to  be  plotted,  this  option  is  specified 
every  np^  particle  will  be  plotted.  Otherwise,  every  particle  will  be  plotted  unless 
SORTP  is  nonzero. 

SORTP  = ps 

This  option  eliminates  overstrikes  In  particle  plots  if  nonzeiro.  ps  = 1020/max 
points  to  be  plotted  In  a row. 

MASSIVE 

This  option  causes  all  variables  to  be  saved  from  the  particle  record.  Otherwise 
only  two  words  are  saved. 


t 
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XPLANES  = x^,  Xj,  x^ 

YPLANES*  yj.  Yf.  y,j 

ZPLANES  = z, , z.,  z , 
lid 


For  three^imensional  problems  (DIMEN  = 3),  this  causes  the  planes  for 
*1^1  ^ Increments  of  x^jCy^j  or  z^)  to  be  plotted  as  two-dimensional 

plots  using  all  the  previous  plot  requests. 


3DPLOT 

This  keyword  selects  tliree^limensional  contour  plots  for  cases  with  DEMEN  = 3. 


EYE  = ex,  ey,  ez 

\. 

This  option  specifies  the  position  of  the  eye  of  the  3DPLOT . 

(Note:  RDCONT,  RBCONT,  RECONT  are  the  OTdy  allowable  contour  options  for 
use  with  3DPLOT.  Each  of  these  options  may  be  followed  by  the  contour  value  which 
will  be  opaque  in  the  plot. ) 


LAMBPLOT 


This  allows  the  interface  of  the  LAMB  (low  altitude  multiple  burst)  simulation 
model  to  the  plotting  routine. 

XL  = xm 
YL  = ym 

This  specifies  the  maximum  dimension  of  a hard  copy  plotting  device  (default 
= 10.0  In.). 

BD  »bs 

This  specifies  the  width  of  the  border  for  microfilm  plots  (minimum  = 1.5, 
default  = 2.2  in.). 

PLOTPKG  = np 

This  specifies  the  plotting  package  to  be  included.  This  is  used  by  PLANK  and 
'’AIL  to  generate  the  proper  code.  Refer  to  PLCDTPKG  in  the  section  on  PLANK 
jns. 
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FACTPL  = fp 

This  set  the  scaling  factor  for  the  plots. 

SUDES 

This  option  causes  a blank  frame  to  be  left  between  plotted  frames  for  convenience 
in  mounting  for  slide  projection. 

This  option  causes  a blank  frame  to  be  left  between  plotted  frames. 

MF  = mf 

This  selects  the  type  of  film  output.  It  is  used  by  PLANT  and  SAIL.  iRefer  to 
PLANK  options  for  values. 

THETA  = th 

This  option  specifies  the  rotation  of  the  entire  plot  on  film  plotters. 

CAMERA  = nc 

This  sets  the  camera  option  on  the  SC  4020  (PLOTPKG  = 4)  nc  = 35  for  35  mm 
camera  only,  nc  = 9 for  Xerox  only  and  both  for  all  other  values  (default  = 0). 

•PLOTVSN 

This  specifies  the  VSN  of  the  plot  tape  is  PLOTPKG  = 1.  Default  is  PLOTAP. 

2.  STATION  PLOTS 

If  the  keyword  STATION  immediately  follows  the  keyword  PULL,  the  station 
program  STASORT  and  STAPLOT  are  set  for  generators  by  PLANK. 

STASORT  unpacks  the  station  tape  on  unit  4 and  writes  the  information  on  unit  9. 
The  data  is  converted  from  time  order  to  station  order  with  data  for  each  station 
written  on  a separate  file  on  unit  9. 

STAPLOT  will  plot  the  output  from  STASORT  and  it  reads  the  same  PULL  record 
that  would  be  used  by  plank.  The  option  XL,  YL,  BD,  PLOTPKA,  FACTPL, 

SLIDES,  MF,  CAMERA,  and  PLOTVSN  which  are  described  in  paragraph  1 are  avail- 
able in  STAPLOT.  In  addition,  the  following  options  are  available  for  station  plots: 

FSTA  = nf 


This  option  specifies  the  number  of  the  first  station  to  be  sorted  and/or  plotted  (default  = 1). 


f 


LSTA  = ne 

Specifies  the  number  of  the  last  station  to  be  sorted  and/or  plotted  (defaiilt 
= NSTN). 

PUNCH 

This  keyword  causes  STAPLXDT  to  punch  a NEAT  deck  for  problems  where 
STRESS  = 0 only. 

ENGUSH 

This  causes  the  ou^t  from  STAPLOT  to  be  in  English  rather  than  metric  units. 
RADIAL 

In  problems  where  STRESS  >0,  this  option  requests  the'plots  of  rad'al  motion. 
AXIAL 

In  problems  where  STRESS  >0,  this  option  requests  the  plotting  to  be  axial 
motion. 

TOTAL 

This  option,  if  STRESS  >0,  requests  plotting  total  motion. 

OTRESS 

For  problems  where  STRESS  >0,  this  option  requests  plots  of  total  stress 
components. 

STRESSDEV 

For  problems  where  STRESS  >0,  this  option  requests  plots  of  deviation  stress 
components. 

TENSOR 

This  option  requests,  if  OTRESS  >0,  plots  of  the  second  invariant  and  minimum 
i and  maximum  principal  stresses. 


i?n 


FLUXM 


This  option  requests,  if  STRESS  > 0,  plots  of  mass  flux. 

3.  PULL  PLOT  DRIVER  INTERFACE 

The  plot  driver  option  PLOTPKG  has  values  of  1 through  5 supply  plot  drivers 
on  the  driver  interface  for  the  CDC  plotting  routine  described  in  section  III. 3. 2. 

To  interface  PULL  with  other  drivers,  the  user  must  set  PLOTPKG  = 0 (or 
a new  value)  and  write  five  interface  routines — INIPLT,  UPLOT,  USYMBL,  NEXPLT, 
and  TERPLT. 

3.1  Plot  Initialization 

PULL  calls  the  routine  INIPLT  to  initialize  the  plotter.  The  entry  form  is: 
SUBROUTINE  INIPLT  (XL,  YL,  BO,  PLTING,  MODPL,  ICAMERA,  THETA, 
FACTPL). 

This  routine  is  to  set  up  the  mapping  and  initializes  the  plot  file. 


arameters 

are: 

NAME 

TYPE 

I/O 

USAGE 

XL,yL 

real 

I 

The  size  of  the  plotting  area  in  the  X-  and  Y- 
direction  (in  inches)  respectively.  These  are 
the  parameters  set  by  the  PULL  input  keyword 

XL  and  YL. 

BD 

real 

I 

The  size  of  film  plot  border  (in  inches).  This 
parameter  is  set  by  PULL  input  keyword  BD. 

PLTINC 

real 

I/O 

The  plot  resolution  (in  inches)  can  be  input  (is 
set  by  PULL  input  keyword  PLTINC)  or  can  be 
set  by  INIPLT.  Value  is  used  in  contour  routines 

MODPL 

integer 

I 

The  plot  situation.  It  is  set  to  value  specified  in 
PLOTPKG  in  PULL  input  (or  from  PLOTPKG 
option  value  at  PULL  generate  time). 

ICAMERA 

integer 

I 

Camera  type.  This  parameter  is  set  by  PULL 
input  keyword  CAMERA. 

NAME 

TYPE 

U9. 

USAGE 

THETA 

real 

integer 

I 

Total  plot  rotation  must  be  a multiple  of  90°. 
This  parameter  is  defaulted  to  0 and  may  be  set 
by  PULL  input  keyword  THETA. 

FACTPL 

real 

I 

The  plot  scaling  factor.  The  parameter  is  set 
by  PULL  input  keyword  FACTPL. 

Upon  return  PULL  expects  a plotting  area  which  is  XL  + 2 * BD  by  YL  = 2 * BD 
where  the  origin  and  current  plotter  positicm  are  at  (BD,  BD).  The  dimensions  are 
nominally  inches  but  can  represent  any  unit  as  long  as  they  are  consistent  with  the  units 
used  in  the  routines  UPLOT  and  USYMBL. 

3.2  Vector  Plotting 

PULL  calls  the  routine  UPLOT  to  draw  vector  and  position  the  plotter. 

The  entry  is: 

SUBROUTINE  UPLOT  (X,  Y,  IP) 

The  arguments  are: 

NAME  TYPE  I/O  a USAGE 

X,  Y real  I The  coordinates  (in  inches)  to  which  the  plotter 

is  to  move. 

IP  integer  I Plot  type  1 performs  same  functions  as  last  line. 

= 2 draw  from  camera  position  to  (X,  Y). 

= 3 move  to  (X,Y)  (do  not  draw). 

= -1  same  as  1 but  resulting  position 
then  becomes  (0,0). 

= -2  same  as  2 but  resulting  position 
then  becomes  (0, 0). 

= -3  same  as  3 but  resulting  position 
then  becomes  (0, 0). 

PULL  expects  this  routine  to  move  to  the  position  (X,  Y)  and  draw  a line  if  /IP/  = 2. 

In  addition,  if  IP  < 0 the  origin  is  reset  to  the  final  position  of  the  plotter. 
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3.3 


Character  Plotting 

PULL  call  the  routine  USYMBL  to  plot  alphanumeric  symbols.  The  entry 


SUBROUTINE  USYMBL(X,  Y,  H,  LAB,  THETA,  NCHR)  where  the  perimeters 


are:  {< 


NAME 

TYPE 

I/O 

USAGE 

fi 

X,  Y 

real 

I 

The  coordinate  where  the  plotter  is  to 

ij 

draw  the  characters  in  inches. 

j 

H 

real 

I 

The  height  of  the  characters  in  inches. 

1 

1 

1 

C 

i 

i 

LAB  - 

character 

I 

The  character  (symbols)  to  be  drawn. 

THETA 

real 

I 

The  direction  the  characters  are  to  be 

1 

i 

drawn. 

0.  - left  to  right 
90.  - bottom  to  top 
1180.  - right  to  left 
270.  - top  to  bottom 


NCHR  integer  1 The  number  of  characters  in  LAB  to 

be  drawn.  If  NCHR  0 LAB  is  a single 
integer  (A)  for  special  characters. 


PULL  expects  routine  to  draw  the  lint  of  symbols  starting  at  (X,  Z)  in  the  direction 
specified  by  THETA.  In  addition,  PULL  expects  the  plotter  to  be  positioned  at  the 
end  of  the  character  just  drawn  when  returning  from  USYMBL. 

3.4  Changing  Plots 

When  PULL  is  ready  to  generate  another  plot  it  calls  VPLOT  (L  + 2. 5, 0. 0,  -3) 
then  calls  NEXPLT  which  has  the  entry: 

SUBROUTINE  NEXPLT  (SUDES) 
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where  SLIDE  is  a logical  input  parameter  which  is  set  by  the  SLIDES  keyword  from 
the  full  input.  If  SLIDES  is  true,  then  an  extra  frame  is  generated  for  35  mm  plots. 

3.5  Plot  Termination 

The  last  plotting  operation  performed  by  PULL  is  to  call  the  routine  TERPLT 
which  has  no  arguments.  This  is  the  interface  to  the  plotting  system  to  end  the 
plotting  session . 


APPENDIX  A 


SAIL  AND  HULL  LIBRARY  ROUTINES 


SAIL  LIBRARY  ROUTINES 


NAME:  COMPR 

PURPOSE:  To  compare  character  strings. 

ENTRY:  LOGICAL  FUNCTION  COMPR  (Ml,  II,  NCR,  M2,  12) 


Ml 

character 

I 

first  character  string 

11 

integer 

I 

relative  position  of  first 
character  to  be  compared 

NCR 

integer 

I 

number  of  compared  characters 

M2 

character 

I 

second  character  string 

12 

integer 

I 

relative  positive  of  first  charac- 
ter to  be  compared  in  second 
string 

COMPR 

logical 

O 

= .TRUE,  if  strings  are  equal 
= .FALSE,  if  not 

u 


ft 

I 


SAIL  LIBRARY  ROUTINES 


NAME:  FETCH 


PURPOSE:  To  extract  integers  packed  In  a character  word. 
ENTRY:  SUBROUTINE  FETCH  (N,  II,  12,  13) 


Description  of  Parameters 

Name  Type I/O  Usage 


N 

character 

word 

(integer  - CDC) 
(real*8  - IBM) 

I 

character  word  containing  the 
integers 

11 

integer 

0 

integer  contained  in  first  quarter 
of  word 

12 

integer 

O 

integer  contained  in  second 
quarter  of  word 

13 

integer 

0 

integer  contained  in  last  half 
of  word 

SAIL  LIBRARY  ROUTINES 


NAME:  GETNUM 

PURPOSE:  To  decode  numbers  of  the  form  XXX.  YYY. 

ENTRY:  SUBROUTINE  GETNUM  (NCARD,  IS,  IB,  IC,  IFN) 


Description  of  Parameters 

Name 

Type 

Uo 

Usage 

NCARD 

character 

I 

field  to  be  scanned  for  number 

IS 

integer 

I 

the  first  character  position  in 
NCARD  to  be  scanned  for  number 

1 

O 

if  IFN.<  0,  the  character  posi- 
tion of  the  first  nonblank  character 

if  < 0,  no  nonblank  characters 
were  encountered  in  scan 

• 

if  > 0,  first  character  position 
past  number  decoded 

m 

integer 

o 

integer  value  of  number  found 
prior  to  a blank  or  period 

IC 

integer 

0 

integer  value  of  number  found 
after  period;  zero  if  none  found 

IFN 

integer 

I 

the  last  character  position  to  be 
scanned  for  number 

o 

if  < 0,  IFN  is  the  character 
position  of  a character  which 
could  not  be  decoded  into  a 
number 

if  > 0,  contains  number  of 
characters  found  in  decoding  IC 


SAIL  LIBRARY  ROUTINES 


NAME:  GTWD 

PURPOSE:  To  parse  a character  unit  from  a character  string. 
ENTRY:  SUBROUTINE  GTWD  (IWD,  NCARD,  IS,  IFN) 


I 


IWD  character  O the  character  unit  generated 

(maximum  20  characters  on 
CDC  and  16  characters  on  IBM) 

NCARD  character  I the  character  string  to  be  parsed 


IS  integer  I the  first  character  position  for 

the  parsing  scan 

O if  IFN  > 0,  the  first  character 

position  past  the  unit  assembled 


SAIL  UBRARY  ROUTINES 


NAME;  INTEG 

PURPOSE;  To  convert  an  integer  into  a character  string. 
ENTRY;  SUBROUTINE  INTEG  (NX,  IFL,  NCR,  IFC) 


Description  of  Parameters 

Name  Type 

Ho 

Usaece 

NX 

int^er 

I 

number  to  be  converted 

IFL 

character 

0 

character  string  to  contain 
number;  must  be  24  characters 
long  on  IBM  and  30  characters 
long  on  CDC 

NCR 

integer 

0 

number  of  characters  generated 
for  the  number 

IFC 

integer 

O 

positi<m  of  first  character  of 
string  generated 

SAIL  LIBRARY  ROUTINES 


NAME: 

STOR 

PURPOSE: 

To  transfer  character  strings. 

ENTRY: 

SUBROUTINE  STOR  (Ml, 

M2,  11, 

NCR,  12) 

Description  of  Parameters 

Name 

Type 

I/O 

Usaee 

Ml 

character 

I 

character  string  into  which  the 
characters  are  to  be  transferred 

M2 

character 

O 

character  string  from  which  the 
characters  are  to  be  transferred 

11 

integer 

I 

position  in  M2  where  first  charac- 
ter is  to  be  placed  when  transferred 

NCR 

Integer 

I 

number  of  characters  to  be 
transferred 

12 

integer 

' I 

position  in  M2  of  first  character 
to  be  transferred 

SAIL  LIBRARY  ROUTINES 


NAME;  STORN 


PURPOSE:  To  store  three  Integers  packed  In  a character  word. 
ENTRY:  SUBROUTINE  STORN  (N,  II,  12,  13) 


Description  of  Parameters 

Name 

Type 

_ U2. 

Usaee 

N. 

character  word 
(integer  CDC) 
(real*8  IBM) 

0 

word  into  which  the  integers  are 
to  be  stored 

11 

integer 

I 

integer  to  be  stored  in  first 
quarter  of  word 

12 

integer 

I 

integer  to  be  stored  in  second 
quarter  of  word 

13 

integer 

I 

integer  to  be  stored  in  second 
half  of  word 

HULL  LIBRARY  ROUTINES 

NAME: 

BACKUP 

PURPOSE; 

To  backspace  a record  written  by  RDL. 

ENTRY: 

SUBROUTINE  BACKUP  (LFN,  N) 

Description  of  Parameters 

Name 

Type 

I/O 

Usage 

LFN 

unit 

I 

unit  to  be  backspaced 

N 

integer 

I 

number  of  RDC  records  to  be 
backspaced 

HULL  LIBRARY  ROUTINES 


NAME; 

PURPOSE; 

ENTRY; 

Description 

NMie 

DT 


NAME; 

PURPOSE; 

ENTRY; 

Description 

Name 


CDATE 

To  return  current  date. 
SUBROUTINE  CDATE  (DT) 


of  Parameters 


Type 

character 


I/O  Usage 

O date  is  in  format  BDDMMMYY 

where  B = blank 

DD  = day  of  month 
MMM  = month 
YY  = year 


CLOSE  P 

To  terminate  partial  I/O  on  a CDC  file  and  return  to  FORTRAN  I/O. 
SUBROUTINE  CLOSER  (LFN) 

of  Parameters 

Type  I/O  Usage 


LFN 


unit 


I 


the  file  to  be  returned  to  CDC 
FORTRAN  I/O 
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NAME:  DEVTP 


PURPOSE:  To  determine  If  a file  Is  a tape  on  CDC  system. 
ENTRY:  SUBROUTINE  DEVTP  (FILE,  IFLG) 


Description  of  Parameters 

File  Type 

FILE  unit 

IFLG  integer 


I/O  Usage 

I file  which  is  to  be  tested 

O device  flag  = 1 file  is  tape 

= 2 file  is  disk 


NAME:  ENDRCD 

PURPOSE:  To  write  a SCOPE  end  of  record  on  a CDC  coded  file. 
ENTRY:  SUBROUTINE  ENDRCD  (IFILE) 

Description  of  Parameters 

Name  Type  I/O  Usage 


IFILE 


unit 


I 


file  where  end  of  record  is  to  be 
written 
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NAME;  FILETY 

PURPOSE;  To  determine  the  characteristics  of  a CDC  file  from  FORTRAN. 
ENTRY;  SUBROUTINE  FILETY  (LFN,  DT,  FP,  TC,  OF,  RMS,  PER,  TYP) 


Description  of  Parameters 

Name 

Tvpe 

I/O 

Usase 

LFN 

unit 

I 

the  file  for  which  the  information 

is  required 

DT 

character 

0 

device  hardware  mnemonic 

AH  - 819  disk  drive 

AM  - 841  multiple  disk  drive 

AX  - ECS  resident  files 

AY  - 705/844-21  disk  drive 

AZ  - 7054/844-41  disk  drive 

LM  - link  medium  file 

MT  - 657  or  667  magnetic  tape 
drive,  seven  track 

NT  - 659,  669  or  679  magnetic 
tape  drive,  nine  track 

TR  - 3691  paper  tape  reader 

TP  - 3691  paper  tape  pimch 

LP  - line  printer  (any) 

LQ  - line  printer  (512) 

LR  - line  printer  (580-12) 

LS  - line  printer  (580-16) 

LT  - line  printer  580-20) 

CR  - card  reader  (405) 
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NAME:  FILET Y (continued) 


Name 

Type 

Uo 

Usaee 

DT(continued) 

KB  - remote  terminal  keyboard 

CP  - card  punch 

DC  - console  display 

GC  - 252-2  graph  console 

FP(optional) 

Integer 

o 

sequential  file  position 
= 1 beginning  of  information 
= 2 end  of  file 
= 3 end  of  information 

TC  (optional) 

integer 

o 

magnetic  tape  characteristics 
= 1 unlabeled,  seven  track 
= 2 labeled,  seven  track 
= 3 unlabeled,  nine  track 
= 4 labeled,  nine  track 

OF  (optional) 

integer 

o 

open  flag;  file  is  open  if  0 

RMS  (optional) 

integer 

0 

mass  storage  flag;  file  is  on 
mass  storage  if  ^ 0 

PER  (optional) 

int^er 

o 

fUe  permission 
= 0 no  permission 
= 1 read  permission 
= 2 write  permission 
= 4 extend  permission 
= 8 modify  permission 
combination  or  sums  of  the 
above  values 

TYP(optional) 

Integer 

o 

file  tape 

= 0 local  file  (scratch) 

= 1 INPUT 
= 2 print  file 
= 3 punch  file 
= 4 permanent  file 
= 63  all  others 

i 


i 


I 
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NAME:  GETVSN 

PURPOSE:  To  obtain  the  VSN  of  a tape  on  CDC  NOS/BE  systems. 
ENTRY:  SUBROUTINE  GETVSN  (LFN,  VSN) 


LFN  unit  I the  local  Hie  associated  with 

the  tape 

VSN  character  O the  VSN  is  the  first  five 

characters;  reading  zeros 
included 


I 


NAME:  INBY 

PURPOSE:  To  insert  bits  in  CDC  word. 

ENTRY:  FUNCTION  INBY  (Ml,  IBl,  NB,  IB2,  M2) 

ENBY  (Ml,  IBl,  NB,  IB2,  M2) 


Ml 

any 

I 

word  containing  source  bits 

mi 

integer 

I 

bit  position  of  first  bit  to  be 
inserted  from  Ml 

NB 

integer 

I 

number  of  bit  to  be  inserted 

IB2 

integer 

I 

bit  position  in  M2  where  bits 
are  to  be  inserted 

M2 

any 

I 

word  where  bits  are  to  be 
inserted 

INBY 

ENBY 

integer 

real 

0 

the  result  of  NR  bits  from  IBl 
and  Ml  inserted  at  IB2  in  M2 

t 
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NAME: 

PURPOSE: 


ENTRY; 


MACHNT 

To  determine  on  CDC  NOS/BE  system  whether  the  program  Is  running 
on  a Cyber  176. 

SUBROUTINE  MACHNT  (ITYP) 


Description  of  Parameters 

Name  Type  I/O  Usage 

ITYPE  integer  O Cyber  176  type 

= 0 if  not  a 176 


NAME;  PFMM 

PURPOSE;  To  perform  permanent  file  functions  from  FORTRAN . 

ENTRIES;  SUBROUTINE  ATTACH  ( LFN,  NR,  PARM) 

CATALOG  (LFN,  NR,  PARM) 

EXTEND  (LFN,  NR,  PARM) 

PiniGE  (LFN,  NR,  PARM) 

ALTER  (LFN,  NR,  PARM) 

RENAME  (LFN,  NR,  PARM)  (not  on  7600) 
PERM  (LFN,  NR,  PARM)  (not  on  7600) 

Each  entry  performs  the  permanent  file  operation  Indicated  by  its  name. 

Description  of  Parameter 


Name 

Type 

I/O 

Usage 

LFN 

unit 

I 

local  file  name  for  permanent 
file  operator 

NR 

integer 

O 

return  code  (see  note  1) 

PARM 

any  (array) 

I 

Parameter  list.  First  four 

words  contain  permanent  file 
name.  Optional  parameters 
follow  two  words  per  parameter; 
first  is  parameter  name  (see 
note  2)  and  second  is  value. 

List  terminated  by  a zero. 
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NAME:  PFMM(continued) 


Note  1.  Retiim  code  (for  all  entries  except  PERM). 


NR 

0 

1 

2 

3 

4 

5 

6 
8 
9 

10 

11 

13 

14 

15 

16 
18 

19 

20 
21 

23 

24 


Description 
successful 
PFN/FD  error 
LFN  already  In  use 
imknown  LFN 

cycle  limit  exceeded  (more  than  five  cycles) 

peimanent  file  catalog  full 

no  LFN  or  PFN 

latest  index  not  written 

file  not  on  PF  device 

file  not  cataloged  (not  found) 

archive  retrieval  aborted 

cycle  number  limit  reached  (>  999) 

permanent  file  directory  full 

function  attempted  on  a nonpermanent  file 

function  attempted  on  a nonlocal  file 

file  never  assigned  to  a device 

cycle  incomplete 

PF  already  attached 

file  unavailable 

illegal  LFN 

file  dumped 
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NAME:  PFMM  (continued) 


27  ALTER  needs  exclusive  access 

29  file  already  in  system 

32  illegal  set  name 

33  device  not  mounted  at  c<mtrol  point 

34  RBJ  chain  too  large  for  PFC 

35  file  resides  on  unavailable  device 


Return  code  (for  PERM  entry) 

NR  Description 

0 unknown  file 

1 read  permission 

2 extend  permission 

3 read  and  extend  permission 

4 modify  permission 

5 read  and  modify  permission 

6 extend  and  modify  permission 

7 read,  extend  and  modify  permission 

8 control  permission 

9 read  and  control  permission 

10  extend  and  control  permission 

11  read,  extend,  and  control  permission 

12  modify  ajxi  control  permission 

13  read,  modify  and  control  permission 

14  extend,  modify  and  control  permission 

15  read,  extend,  modify  and  control  permission 

<0  nonpermanent  file 
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NAME:  PFMM  (continued) 


Note  2. 

Nanae 

The  parameter  names  are 

Value 

Description 

lO 

character 

file  ID 

PW 

character 

submitted  password 

TK 

character 

defined  turnkey  password 

CN 

character 

defined  control  password 

MD 

character 

deflned  modify  password 

EX 

character 

deRned  extend  password 

RD 

character 

defined  read  password 

XR 

character 

deRned  control,  modify  and  extend 
password 

AC 

character 

accounting  code  (not  on  CDC  7600) 

EC 

character 

ECS  buffering  (not  on  CDC  7600) 

FO 

character 

file  organization 

ST 

character 

MMF  station 

SN 

character 

set  name 

RP 

Integer 

retention  period  (days) 

CY 

integer 

cycle  number 

MR 

integer 

^ 0 multiread  access 

LC 

integer 

^ 0 lowest  cycle 

RW 

integer 

^ 0 multiread  single  rewrite 
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NAME;  NEXT 

PURPOSE:  To  scan  card  image  and  generate  next  parsed  element. 
ENTRY;  SUBROUTINE  NEXT 

Common  Blocks  Accessed 


Name 

Type 

Common 

Usage 

CARD 

character 

/CARD/ 

current  card  image 

TEST,  TESTC 

character 

/CARD/ 

parsed  character  unit 
generated 

EPOINT 

integer 

/CARD/ 

scan  point  at  both  beginning 
and  end  of  scan 

NCHAR 

integer 

/CARD/ 

number  of  characters  in 

TEST,  TESTC 

NCOL 

integer 

/CARD/ 

number  of  characters  of 

CARD  to  be  scanned  ' 

EOFC 

character 

/EOF/ 

test  set  to  this  value  if 
read  produces  an  end  of 
fUe 

I 
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NAME;  OPENP 

PURPOSE:  To  open  a file  on  SCOPE  records  for  partial  I/O.  Must  be  called  before 
using  READP  and  WRITEP  on  CDC  systems. 

ENTRY;  SUBROUTINE  OPENP  (LFN,  MRL) 


Description  of  Parameters 

Name 

Type 

I/O 

Usage 

LFN 

imit 

I 

the  nie  to  be  opened  for  partial 
I/O 

MRL 

integer 

I 

the  maximum  length  of  record 
on  file  in  words 
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NAME;  PFNSET 

PURPOSE:  To  set  up  PF  parameter  labels  for  HULL  permanent  files. 
ENTRY;  SUBROUTINE  PFNSET  (PROB) 


Description  of  Parameters 


Name 

Type 

go_ 

Usaee 

PROB 

real 

I 

problem  number  to  be  set  in 
permanent  file  name 

Common  Blocks  Accessed 

Name 

Type 

Common 

Usaee 

PROBPFN 

character 

/PARAM/ 

coded  problem  number 

PARAM 

any  (array) 

/PARAM/ 

PFN  parameter  array  for  dump 
tape  permanent  file 

PARAM2 

any  (array) 

/PARAM/ 

PFN  parameter  array  for  station 
tape  permanent  file 

PARAM3 

any  (array) 

/PARAM/ 

PFN  parameter  array  for  TAPE41 
files 

PARAM4 

any  (array) 

/PARAM/ 

PFN  parameter  array  for  tape 
library 
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NAME:  RDL 

PURPOSE:  To  read  a block  of  data  and  return  the  length  read 
ENTRY:  SUBROUTINE  RDL  (NT,  DT,  LN,  IRTN) 

Description  of  Parameters 


NT 

any 

I 

the  Hie  to  be  read 

DT 

any 

O 

the  origin  of  the  block  which  will 
contain  the  data  read 

LN 

integer 

I 

the  number  of  words  in  the  block 

O 

the  number  of  words  read 

IRTN 

integer 

O 

return  code 
-1  successful  read 

0 end  of  file  encountered 
+1  error  in  read 

NAME: 

RDL2 

• 

PURPOSE: 

To  read  into  level  2 variables  on  CDC  7600  and  Cyber  176 

ENTRY: 

SUBROUTINE  RDL2  (PT, 

LN, 

IRTN) 

Description  of  Parameters 

The  parameters  are  identical  with  those  for  RDL. 
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NAME:  READP 

PURPOSE:  To  read  a partial  record  from  a CDC  file  with  SCOPE  record  tape. 


ENTRY: 

SUBROUTINE  READP  (LFN, 

Description  of  Parameters 

Name 

Type 

I/O 

LFN 

unit 

I 

WS 

any 

O 

LWS 

integer 

I 

LRD 

integer 

O 

lER 

integer 

0 

WS,  LWS,  LRD,  lER) 


Usage 

file  to  be  read 

the  area  to  contain  the  data  read 

the  number  of  words  in  the  data 
area 

the  number  of  words  read 

the  read  position 
= 0 mid  record 
= 20B  end  of  record 


NAME:  REMARK 

PURPOSE:  To  generate  a 40-^:hafacter  message  on  CDC  system  B display  plus, 
optionally,  in  the  job  dayfile. 

ENTRY:  SUBROUTINE  REMARK  (MSG,  FLAG) 


Description  of  Parameters 

Name 

Type 

I/O 

Usage 

MSG 

character 

I 

message  to  be  displayed;  if  less 
than  40  characters,  it  must  be 
terminated  by  0 

FLAG  (optional) 

integer 

I 

display  tape 
= 0 B display  only 
^ 0 B display  plus  job  dayHle 
(default  if  not  present) 
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NAME;  REQUEST 

PURPOSE;  To  assign  CDC  files  to  devices 

ENTRY;  SUBROUTINE  REQUEST  (LFN,  PARAM^,  ...  PARAM^^) 


Description  of  Parameter 


Name 

LFN 

PARAMj 


Type 

unit 

character 


I/O  Usage 

I file  to  be  assigned 

I file  characteristic  (see  note  1 and  2) 


Note  1.  The  characters  in  PARAM^  that  are  recognized  as  single  word  parameters 
are 


Character  Value 
of  PARAMj^ 

MT 

>.»  NT 
LO 
HI 
HY 
HD 
PE 
U 
N 
E 
Z 
Y 
S 
L 


Meaning 

select  seven-track  tape 

select  nine-track  tape 

select  200  BPI  seven-track  tape 

select  556  BPI  seven-track  tape 

select  800  BPI  seven-track  tape 

select  800  BPI  nine-track  tape 

select  1600  BPI  nine-track  tape 

ANSI  labeled  tape 

new  labeled  tape 

existing  labeled  tape 

Z labeled  tape  (density  is  labeled 

Y labeled  tape  (3000  series  labeled) 

stranger  tape 

long  stranger  tape 
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EC 

buffer  through  ECS 

OV 

overflow  to  any  other  mass  storage 
device  is  allowed 

PF 

assign  to  permanent  file  device 

EB 

select  EBCDIC  conversion  for  nine- 
track  coded  tape 

US 

select  ASC  II  conversion  for  nine-track 
coded  tape 

NS 

nonstandard  tape  label 

NR 

inhibit  normal  parity  array  recovery 

MF 

multiple  set 

SV 

same  tape 

IV 

inhibit  physical  unload  of  tape 

CK 

check  point  tape 

RING 

request  write  ring  on  tape 

NO  RING 

request  no  write  ring  on  tape 

VSN  = xxxxxx 

request  a VSN  of  xxxxxx 

SN  = xxxxxx 

request  a set  name  of  xxxxxx 
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NAME; 


REQUEST  (continued) 


Note  2.  The  multiword  parameters  are 


First  Word 


Description 


LABEL 


The  following  eight  words  will  be  used 
as  the  message  instead  of  the  standard 
message.  If  less  than  eight  words,  it 
must  be  terminated  with  a zero  word. 

The  last  ei^  characters  of  the  first 
word  and  the  first  nine  characters  of 
second  word  represent  the  HDRl  label. 

The  following  four  words  contain  the 
standard  label  block  as  described  on 
page  7-37  of  the  NOS/BE  reference 
manual  or  page  12-27  of  SCOPE  3.4 
reference  manual. 


NAME; 


RETURNS 


PURPOSE;  To  return  a CDC  file. 

ENTRY;  SUBROUTINE  RETURNS  (LFN) 


Description  of  Parameters 


Name 


Type. 


Usage 


file  to  be  returned 


149 


HULL  LroRARY  ROUTINES 

NAME;  ROUTEIT 

PURPOSE:  To  route  a file  to  the  input  queue  on  CDC  systems. 
ENTRY:  SUBROUTINE  ROUTEIT  (FILE,  ST  AT) 


Description  of  Parameters 

Name Type 


FILE 

ST  AT  (optional) 


unit 

character 


I/O 

I 

I 


Usage 


file  to  be  routed  to  input 

station  to  receive  Hie 
(default  is  current  station 
if  not  specified) 


NAME; 

SEARCH 

PURPOSE: 

To  locate  a data  record  beginning  with  a specified  keyword. 

ENTRY: 

SUBROUTINE  SEARCH  (WORD,  I, 

NREC) 

Description  of  Parameters 

Name 

Type 

I/O 

Usage 

WORD 

character 

I 

keyword  for  search 

I 

integer 

O 

= 1 record  found 
= 2 record  not  found 

NREC 

integer 

0 

record  number  of  keyword 

Input  file  is  positioned  so  that  calls  to  NEXT  and  value  will  process  record 
beginning  with  the  keyword. 
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NAME:  SETREG 

PURPOSE:  To  set  the  NOS/BE  CLL  registers  Rl,  R2,  and  R3. 
ENTRY:  SUBROUTINE  SETREG  (NREG,  NVAL) 


NREG  integer  I register  niunber  must  be  1 , 

2,  or  3 

NVAL  integer  I value  for  register;  maximum 

218-1 


NAME:  SINK 

PURPOSE:  To  force  an  abnormal  termination. 
ENTRY:  SUBROUTINE  SINK 


-MTJi- 


NAME: 

PURPOSE: 

ENTRY: 

Description 

Name 

ISW 


NAME: 

PURPOSE: 

ENTRY; 

Description 

Name 

SEC 
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SWITCH 

To  manipulate  pseudo-sense  switches  on  CDC  system. 

SUBROUTINE  OFFSS  (ISW) 

OFFSW  (ISW) 

ONSS  (ISW) 

ONSW  (ISW) 


of  Parameter 


Type 

integer 


I/O 

I 


Usage 

sense  switch  number 
(must  be  in  range  1-6) 


TIMTGO 

To  get  the  remaining  job  CPU  time  on  CDC  system. 

SUBROUTINE  TIMTGO  (SEC) 

of  Parameters 

Type  I/O  Usage 

integer  O The  amount  of  CPU  time  (sec) 

remaining  imtil  the  current 
time  limit  is  reached. 
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NAME:  VALUE 

PURPOSE:  To  decode  a number  or  a logical  constant. 


ENTRY: 

SUBROUTINE  VALUE  (WS,  ITYPE) 

Description  of  Parameters 

Name 

Type 

I/O 

Usaee 

WS 

real 

0 

number  or  logical  value 

ITYPE 

integer 

O 

conversion  type 
= 1 number  WS  set 
= 2 logical  WS  set 
= 3 character  WS  not  set 

Common  Block  Reference 

Name 

Type 

Common 

Usaee 

CARD 

character 

/CARD/ 

card  image  being  scanned 

TEST,  TESTC  character 

/CARD/ 

parsed  character  unit 

IPOINT 

integer 

/CARD/ 

current  character  pointer 

NCHAR 

integer 

/CARD/ 

munber  of  characters  in 
TEST,  TESTC 

NCOL 

integer 

/CARD/ 

number  of  characters  to 
scan  on  card 

153 


HULL  LffiRARY  ROUTINES 


NAME: 

PURPOSE; 

ENTRY: 


WRE 

To  wait  for  the  completi(m  of  as3nichronous  output. 
SUBROUTINE  WRE  (NU) 


Description  of  Parameters 


Name 

Type 

I/O 

Usaee 

NU 

unit 

I 

file  for  which  the  completion 

of  the  output  operation  is 

desired 

NAME:  WR 

PURPOSE;  To  write  a block  of  data. 

ENTRY:  SUBROUTINE  WR  (NO,  BLOCK,  LN,  IRTN) 


Description  of  Parameters 

Name 

Type 

I/O 

Usaee 

NO 

unit 

I 

file  to  be  written 

BLOCK 

any 

I 

origin  of  the  block  to  be 

written 

LN 

integer 

I 

number  of  words  to  be 

written 

IRTN 

integer 

O 

return  code 

= -1  successful  wrtte 
= 1 error  In  write 


.1 


L .j  ■»!  - 
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NAME;  WRR 

PURPOSE;  To  write  a block  to  a file  but  return  to  CPU  execution  immediately  on 
systems  that  have  asynchronous  I/O  capability  in  FORTRAN. 

ENTRY;  SUBROUTINE  WRR  (NO,  BLOCK,  LN,  IRTN) 


Description  of  Parameters 


The  parameters  are  identical  to  those  in  WR. 


NAME;  WRR2 

PURPOSE;  To  write  a block  from  level  2 on  CDC  7600  and  Cyber  176  system 
with  immediate  return. 

ENTRY;  SUBROUTINE  WRR2  (NO,  BLOCK,  LN,  IRTN) 


Description  of  Parameters 


The  parameters  are  identical  to  those  in  WR. 


HULL  LIBRARY  ROUTINES 

NAME:  WR2 

PURPOSE:  To  write  a block  for  level  2 on  CDC  7600  and  Cyber  176  systems. 
ENTRY:  SUBROUTINE  WR2  (NO,  BLOCK,  LN,  IRTN) 

Description  of  Parameters 

The  parameters  are  identical  to  those  in  WR. 


NAME: 


WRITEP 


PURPOSE:  To  write  a partial  record  on  CDC  file  with  SCOPE  tsrpe  record. 
ENTRY:  SUBROUTINE  WRITEP  (LFN,  WSA,  LWT,  IWT) 


Description  of  Parameters 


Name 


integer 

Integer 


Usage 


file  to  be  written 

flrst  word  of  area  to  be  written 

number  of  words  to  be  written 

t3rpe  of  writing 
= 0 continue 
^ 0 end  of  record 


I 


I 
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APPENDIX  B 

CDC  CYBER  CONTROL  LANGUAGE  (CCL)  PROCEDURES 

In  NOS/  BE,  it  is  possible  to  use  control  card  procedures  in  the  system.  This 
^[)pendix  desciribes  the  procedures  used  at  the  Air  Force  Weapons  Laboratory  (AFWL). 
Figure  B-1  is  the  procedure  used  to  copy  a HULL  system  file  from  tape  to  disk. 
Figures  B-2,  B-S,  and  B-4  are  procedures  for  generating  the  entire  HULL  library, 
regenerating  PLANK  and  regenerating  BOW,  respectively.  Figure  B-5  is  the  pro- 
cedure used  to  run  HULL.  Figure  B-6  is  a permanent-file  retrieval  procedure  used 
by  other  procedures  and  exterior  to  the  procedures.  Figures  B-7  and  B-8  are  the 
procedures  for  executing  HULL,  KEEL  or  PULL  on  the  CDC  6600  and  Cyber  176, 
respectively  (used  only  by  procedure  HULLR).  Finally  figures  B-9  and  B-10 
are  procedures  for  executing  the  station  plotting  routines  on  the  CDC  6600  and  Cyber 
176  (used  only  by  procedure  HULLR),  respectively. 

The  procedure  parameters  are  as  listed. 

CHANGES.  The  SAIL  changes  if  file  exists  and  INPUT  current  positicm  is 
assumed,  otherwise  BOI  is  assumed  (default  CHANGES). 

HLEB.  The  ID  parameter  for  the  library  permanait  Me  and  the  HULL  perma- 
nent file  (HCOPY)  during  generation  or  modification. 

HPFN.  The  HULL  file  permanent  file  name  Is  HCOPY.  Default  is  MAST. 

TAPE.  The  HULL  ti^e  VSN  is  HCOPY.  Default  is  HULL. 

FIL.  The  local  file  to  which  the  requested  permanent  file  is  to  be  copied  is 
GETC.  Default  is  FIL. 

PFN.  This  parameter  defines  the  name  of  the  permanent  file  which  is  to  be 
copied  to  the  local  file  in  the  procedure  GETC. 

PIP.  The  ID  of  the  permanent  file  to  be  copied  by  GETC. 
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DEN.  HULL  tape  density  (HCOPY).  Default  Is  HY. 

ABTD.  The  abort  parameter  In  HULLR.  Default  is  COMMENT.  If  set  to  DMP 
the  procedure  will  produce  a dump  on  an  abort  of  the  execution  of  HULL. 

TYPE.  The  meta  plot  system  plotting  media.  Default  is  P8  and  values  may 
be  as  foUows. 


CF  — Cal/COMP  full  size  white  paper 
CG  — Cal/COMP  full  size  red  ruled  pt^er 
CH  “Cal/COMP’ half  size  white  paper 
Cl  — Ca/COMP  half  size  red  ruled  paper 
G4  - Gould  4800 
B1  -B/W  16mm  film  (FR80) 

B3  - B/W  35mm  film  (FR80) 

K1  — color  16mm  film  (FR80) 

K3  — color  35mm  film  (FR80) 

MB  —B/W  16mm  movies  (FR80) 

MK  — color  16mm  movies  (FR80) 

F8  — 48X  microfiche  (FR80) 


"fi 


.PROC,GENH, CHANGES, HLIB>HULLIB,HIO«OYHXCER. 

COPYCR< LOCAL, HHH) 

RETURN(LOCAL) 

IFE,FILE(CHANGES,IN),CPR. 

COP YCR( CHANGES, HHH) 

ENDIF,CPR. 

IFE,FILE(CHANGES,AS.AND..NOT.IN),CPr. 

REUIND(CHANGES) 

COP YCF< CHANGES, HHH) 

BKSP(HHH) 

EN1IIF,CPY. 

OYHAST(I«HHH> 

RETURN (HHH) 

FTN ( I sS AIL , B«BOU , PL> 1 IGIBI 0, 0PT*2 ) 

ROUTE , OUTPUT , DC>PR , F Ill>* . 

FTN(I>SAIL,B>PLANK,PL*1l0f0l0,OPT«2) 

ROUTE , OUTPUT, DC*PR, FID** . 
FTN(A,I>SAIL,B«LIB,S,S*PFNTEXT,S*IPTEXT,0PT*2) 

ROUTE , OUTPUT , DC»PR , F IO»* . 

REQUEST (NEULIB,*PF) 

EDITLIB(I*LOCALt) 

RETURN, LOCAL). 

LIBRARY (NEULIB) 

FILE(TAPE1f,SBF*NO) 

FILE(TAPE11,SBF«NO) 

FILE(TAPE4I,SBF*N0) 

FILE<TAPE42,SBF*N0) 

LDSET(PRESETA*NGINDEF,HAP«SBEX) 

L0SET(FILES»TAPEf#/TAPEt1/TAPE41/TAPE42) 

LOAD(BOU) 

NOGO(BOUF,BOU, STERN) 

RETURN) BOU) 

FILE(TAPE41,SBF*N0) 

FILE(TAPE4,SBF*N0) 

L0SET(PRESETA*NGINDEF,HAP*SBEX,FILES*TAPE41/TAPE4) 

LOAD(PLANK) 

NOGO(PLANKF, PLANK) 

RETURN, PLANK. 

ROUTE , OUTPUT , DC*PR, FI D** . 

FTN(A,I>SAIL,B>STRIP,OPT*2,L*SAUE) 

RETURN(SAVE) 

COPYCR(SAIL,CCLP) 

LDSET(NAP*N) 

STRIP. 

RETURN, CCLP. 

FTN , I »SAI L, B-ACCOUN ,0PT*2 . 

FTN,I«SAIL,B>DUNPA,0PT*2. 

LBSET,PRESETA«NGINDEF,NAP*SBEX. 

LOAO,ACCOUN. 

NOGO, ACCOUNT, ACCOUN. 

LBSET, PRESET A«NGINDEF,NAP*SBEX. 

LOAO,DUHPA. 

NOGO , OUNPAF , DUNP A , SUNA . 

RETURN, SUMA,ACCOUN,I)UNPA. 

ROUTE, OUTPUT, DC»PR,FID«*. 

Figure  B-2.  HULL  Library  Generation  Procedure 
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FTN, I=SA IL , BsMOMITOR , OPT^Z ,PL> 1 000000. 

FTW,I»SAIL,B»CNT,0PT*2. 

LOSET,PRESETA>N6INDEF,ifAPsSBEX. 

LOAD,HONITOR. 

N060,H0N,H0NIT0R. 

LDSET,PRE5ETAsN6INDEF,MAPsSBEX. 

LOAOfCNT. 

NO6O,C0NTRF,CONTR. 

RETURN, MONITOR, CMT. 

ROUTE , OUTPUT , DC=PR , F ID** . 

RETURN<SAIL) 

LIBRARY. 

EDITLIB<I«L0CAL2) 

CATAL0G(NEULIB,HLIB,ID=HID,PU=HULLP,XR»HULLP,RP=999) 
RETURN, BOUF,PLANKF, OLD, PLANK, LIB, PROC,BOU. 

RETURN, NON, CONTRF. 

RETURN, ACCOUNT, SUMAF,DUNPAF. 

LIBRARY, NEULIB. 

ACCOUN. 

LIBRARY. 

RETURN, NEULIB. 

REVERT. 

EXIT,S. 

RETURN,ACCOUN. 

LIBRARY, HULLIB. 

ACCOUN. 

REVERT, ABORT. 

.DAT A, LOCAL 

SAIL  LINENO  PROGRAM  BOU  PLANK  LIBRARY 
ACCOUNT 
CONTROL 
ENDPROGRAM 
.DATA,LOCAL1 
LIBRARY(NEULIB,NEU) 

ADDISAILM, HULLIB, AL>1 , LIB) 

REUINBILIB) 

ADD(*,LIB) 

FINISH. 

ENDRUN. 

.DATA,L0CAL2 
LIBRARY( NEULIB, OLD) 

REUINO(PROC) 

ADD(*,PROC,AL«l ) 

REUIND(BOUF) 

ADD(*,BOUF,AL*1) 

REUIND(PLANKF) 

ADD<*,PLANKF,AL>1) 

REUIND( ACCOUNT) 

ADD(*, ACCOUNT, AL*1 ) 

REUIND(DUHPAF) 

AOD(*,DUHPAF,AL*1) 

REUIND<MON) 

AOO(*,NON,AL«I) 

REUIND(CONTRF) 

ADD( «, CONTRF, AL«1) 

Figure  B-2.  (Continued) 


.PRO:,PLANKG,CHANeES,HIB»HULLIB,HID»OYMXCER. 

LIBRARY. 

RETURN(HULLIB) 

ATTACH<HULLIB,HLIB,ID>HIO,PU»HULLP) 

LIBRARY(HULLIB) 

COPYCR< LOCAL, HHH) 

RETURN( LOCAL) 

IFE,FILE(CHAN6ES,1N) ,CPR. 

C0PYCR(CHAN6ES,HHH) 

ENDIF  CPR* 

IFE,FILE<CHAN6ES,AS.AND..N0T.1N),CPY. 

REUINOt CHANGES) 

C0PYCF(CHAN6ES,HHH) 

BKSP(HHH) 

ENDIF, CPY. 

6ETC,HHH. 

DYHAST(I>HHH) 

RETURN(HHH) 

FTN ( I >SAI L , B«PLANK , PL> 1 f 0f 010 , OP  T>  2 ) 

F1LE(TAPE41,SBF>N0) 

FILE(TAPE4,SBF«NO) 

LBS£T<PRESETA»N8INDEF,»AP«SBEX,FILESaTAPE4!/TAPE4) 

LOAD (PLANK) 

N060 ( PL ANKF, PLANK) 

RETURN(SAIL,PLANK) 

LIBRARY. 

EDITLIB(I«LOCAL1 ) 

RETURN (LOCAL 1) 

EXTEND(HULLIB) 

RETURN, OLD, PLANK, PLANKF. 

LIBRARY, HULLIB. 

ACCOUN. 

REVERT. 

EXIT,S. 

LIBRARY, HULLIB. 

ACCOUN. 

REVERT,ABORT. 

.DATA, LOCAL 

SAIL  PR06RAN  PLANK  ENDPR06RAN 

.DATA,LOCAL1 

LIBRART(HULLIB,OLD) 

REUINO(PLANKF) 

REPLACE(*,PLANKF,ALa1) 

FINISH. 

ENDRUN. 

Figure  B-3.  PLANK  Regeneration  Procedure 
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. PROC , BOU6 , CHANGES , HLIB«HULL IB , HID-0 YNXCER . 
LIBRARY. 

RETURN(HULLIB) 

ATTACH( HULL IB , HL IB , I D*HI D , PU=HULLP  > 
LIBRARY<HULLIB) 

COPYCR«LOCAL,HHH) 

RETURN, LOCAL. 

IFE, FILE (CHANGES, IN), CPR. 
COPYCR<CHANGES,HHH) 

ENDIF,CPR. 

IFE,FILE(CHANGES,AS.AND..NOT.IN),CPY. 

REUIND(CHANGES) 

COPYCF( CHANGES, HHH) 

BKSP(HHH) 

ENDIF,CPY. 

GETC,HHH. 

DYNAST(I=HHH) 

RETURN! HHH) 

FTN(I-SAIL,B«BOU,PL-1 000010, 0PT»2) 
RETURN(SAIL) 

FILE(TAPE10,SBF=MO) 

FILEdAPEII  ,SBF*NO) 

FrLE(TAPE4J,SBF»NO) 

FILE(TAPE42,SBF=N0) 

LDSET(PRESETA=NGINDEF,MAP»SBEX) 

LDSET(FILES=TAPE10/TAPE11/TAPE41/TAPE42) 

LOAD(BOU) 

NOGO(BOUF,BOU, STERN) 

RETURN(BOU) 

LIBRARY. 

EDITLIB(I>LOCAL1 ) 

RETURN, LDCALI. 

EXTEND! HULL IB) 

RETURN, BOUF. 

LIBRARY, HULLIB. 

ACCQUN. 

REVERT. 

EXIT,S. 

LIBRART, HULLIB. 

ACCOUN. 

REVERT, ABORT. 

.DATA, LOCAL 

SAIL  PROGRAN  BOU  ENOPROGRAN 
.DATA, LOCAL) 

LIBRARr!HULLIB,OLO) 

REUIND!BOUF) 

ADD! *, BOUF, AL«1) 

FINISH. 

ENDRUN. 


Figure  B-4.  BOW  Regeneration  Procedure 


.PftOC ,HULLR , CHANGES ,A6TD>COHMENT , T YPE«FB . 
COPYCR(LOCAL,HHH) 

RETURN(LOCAL) 

IFE,FILE(CHANGES,IN),CPR. 

COPYCR(CHANGES,HHH> 

ENDIF,CPR. 

IFE,FILE(CHAN6ES,AS.AND..NOT.IN),CPY. 

REUIND(CHANGES) 

C0PYCF<CHAN6ES,HHH) 

BKSP(HHH) 

ENDIF,CPY. 

GETC,HHH. 

CONTR,BOU. 

FILE«TAPE1«,SBF=N0) 

FIL£(TAPEII,SBF=NO) 

FILE(TAPE41,SBF=N0) 

FILE(TAPE42,SBF=N0) 

LDSET (F1LES*TAPE 1 B/TAPE1 1 /TAPE41 /TAPE42) 

BOU. 

CONTR, PLANK. 

FILE(TAPE4,SBF=NO) 

FILE(TAPE4I,SBF=M0) 

LDSET(FILES»TAPE4/TAPE41 ) 

PLANK. 

CONTR, SAIL. 

DYHAST(I*HHH) 

RETURN (HHH) 

RErURN(SAVE) 

REQUEST (SAVE, *Q) 

CONTR, COMPILE. 

IFE,R2.EQ.2,CONPS. 

FTN(A,I»SAIL,B-STASORT,PL>f#0«M,OPT-2,L>SAVE) 
FTN(A,I«SAIL,B>STAPLOT,PL>1OO0I0,OPT>2,L<>SAVE) 
ELSE, COMPS. 

FTN ( A , I>SA1L , PL»1 0#0B0f , B>HULL , OPT»2 , L>SAVE) 

ENDIF, COMPS. 

RETURNC Sail, LOCAL) 

IFE,R2.NE.0,MET. 

LIBRARY (HULLIB, METAL IB ) 

RETURN(TAPEU) 

REQUEST  (TAPEU,*Q) 

DISPOSE(TAPE16,*MF»P*-TrPE) 

ENDIF, MET. 

RETURN(NAP) 

REQUE5T(MAP,«B} 

CONTR, LOAD. 

IFE,R2.EQ.2,RUNS. 

IFE,R1.NE.0,R17A. 

EXSTt7A,ABTD. 

ELSE,R17«. 

EXSTAP,ABTD. 

ENDIF, K176. 

ELSE, RUNS. 

IFE,R1.NE.*,H176. 

HULE176,ABTD. 

Figure  B-5.  HULL  Execution  Procedure 


.PR0C,6ETC,FIL,PFN=CH1,PID=DYHXCER. 

ATTACH(XXX,PFN,ID=PID) 

COPYCR(XXX,FIL) 

RETURN(XXX) 

REVERT. 

EXIT. 

RETURN(XXX) 

REVERT. 

EXIT,S. 

RETURN(XXX) 

REVERT. 

Figure  B-6.  Permanent  Copy  Procedure 


.PROC,HULLEX,ABTD-COHHENT. 

LDSET(PRESETA=NGINOEF,HAP=SBEX/MAP) 

HULL. 

RETURN(TAPE4,HULL) 

REVERT. 

EXIT. 

ABTO,377»0*. 

RETURN(TAPE4,HULL} 

REVERT, ABORT. 

Figure  B-7.  HULL  Execution  Procedure  for  CDC  6600  (for  use  by  HYLLR  Only). 
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.PROC,HULE176,ABTD»COHMENT. 

FILE{TAPE4,SBF»N0> 

FILE(TAPE41,SBF»N0) 

FILE(TAPE9,SBF=N0) 

FILE(TAPE40,SBF-NO) 

FILE(TAPE1B,SBF«N0) 

FILE(TAPE44,SBF»N0) 

FILE(TAPE45,SBF=N0) 

LBSET(PRESETA»NBINDEF,MAP»SBEX/«AP) 

LDSET(FILES=TAPE4/TAPE4I/TAPE9/TAPE40/TAPE10) 

LBSET<FILES»TAPE44/TAPE45) 

HULL. 

RETURN(TAPE4,HULL) 

REVERT. 

EXIT. 

ABTD,37700«. 

RETURN<HULL,TAPE4) 

REVERT, ABORT. 


Figure  B-8.  HULL  Execution  Procedure  for  Cyber  176 
(used  by  HULLR  only) 


.PROC,EXSTAP,ABTD»COMHENT. 

LDSET( PRESET A»NG INDEF , HAP=SBEX/MAP) 

STASORT. 

LDSET(PRESETAsNGlNDEF,HAP:=SBEX/HAP) 

STAPLOT. 

RETURMiSTAPLOT, STASORT, TAPE4, TAPE?) 

REVERT. 

EXIT. 

ABTO,3770IB. 

RETURNi STAPLOT, STASORT , T APE4 , T APE9 ) 

REVERT, ABORT. 

Figure  B-9.  Station  Plotting  Procedure  for  CDC  6600 
(used  by  HULLR  only) 


.PROC ,EXST1 76 , ABTD=COMMENT . 

FILE(TAPE6,SBF=N0) 

FILE(TAPE9,SBF=N0) 

FILE<TAPE62,S6F=N0> 

FILE(TAPE63,SBFsN0) 

FILE(TAPE64,SBF-N0) 

FILE(TAPE65,SBF»N0) 

FILE(TAPE71,SBF=N0) 

FILE<TAPE72,SBF=N0) 

FILE<TAPE73,SBF=N0) 

FILE<TAPE74,SBF»NO) 

FILE(TAPE41,SBF=N0) 

LOSET (PRESETA=N6IMDEF, MAP>SBEX/HAP ) 

LBSET(FILES=TAPE4/TAPE9/TAPE6t/TAPE62/TAPE63/TAPE64/TAPE65) 

LDSET<FILES»TAPE71/TAPE72/TAPE73/TAPE74/TAPE41) 

STASORT. 

FILE(TAPE?,SBFsNO) 

LBSET<PRESETA*N6INDEF,MAP=SBEX/MAP,FILES=TAPE9) 

STAPLOT. 

RETURN, STASORT, STAPLOT,TAPE4,TAPE9. 

REVERT. 

EXIT. 

ABTD,3770B«. 

RETURN, ST ASORT , STAPLOT , T APE4 , TAPE? . 

RE VERT, ABORT. 


Figure  B-10.  Station  Plotting  Procedure  for  Cyber  176 
(used  by  HULLR  only) 


APPENDIX  C 


IBM  PROCEDURES 

The  control  card  procedures  for  generating  the  library  of  SAIL  routines  are 
shown  in  figure  C-1.  The  procedures  for  generation  of  the  HULL  library  routines 
and  PLANK  are  shown  in  figures  C-2  (HUB)  and  C-3  (PGEN),  respectively.  Finally, 
the  procedures  for  executing  KEEL,  HULL  and  PULL  are  shown  in  C-4  (KEEL),  C-*5 
(HULL),  and  C-6  (PULL),  respectively.  The  procedure  parameters  are  listed  below. 

LIB.  Primary  library  name.  The  proportional  data  set  name  for  the  library 
is  PRELIB/LIB.  Default  is  HULLIB. 

LffiPRE.  The  data  set  prefix  for  library.  Default  is  SAIL. 

LIBDS.  The  depositor  for  the  library  data  sets  an  aU  linkage*«ditor  step 
which  adds  routines  to  the  library.  D^ault  is  (OLD,  KEEP). 

LIBU.  The  UNIT  field  for  the  library  data  set.  Default  is  null,  assuming  a 
cataloged  data  set. 

LIBVOL.  The  VOLUME  field  for  the  library  data  set.  The  default  is  null. 

APROG.  The  assembler  program  name  for  procedures  SLIB  and  HLIB. 

Default  is  IFOXOO. 

AREG.  The  REGION  size  for  the  assembly  step  in  procedures  SLIB  and  HLIB. 
Default  is  187K. 

ATIME.  The  time  Hmit  for  the  assembly  step  in  procedure  SLIB  and  HUB. 
Default  is  (0.15). 

AMACL.  The  data  set  name  for  the  system  assembler  macrolibrazy  in 
procedures  SLIB  and  HUB.  Default  is  SYSl.MACLIB. 

API.  This  defines  the  printed  output  from  the  assembly  step  in  procedures 
SLIB  and  HUB.  Default  is  SYSOUT  = A. 


APARM.  This  defines  the  parameters  for  the  assembly  st^  in  procedures 


SLm  and  HUB.  Default  is  LOAD, NODECK. 

CHNBLK.  This  is  the  block  size  for  the  SAIL  change  file.  Default  is  3521. 

CHNLRL.  This  is  the  record  loigth  for  the  SAIL  change  file.  Default  Is  3517. 

CREG.  This  is  the  REGION  size  for  the  copy  step  in  procediires  KEEL,  HULL 
and  PULL.  Default  is  lOOK.  (Note  the  copy  use  lEBGENER) . 

FILO.  This  is  the  file  number  for  the  OLD  SAIL  file.  Default  is  null. 

FLIR,  The  FORTRAN  library  data  set  name  in  procedures  PGEN,  KEEL, 

HULL  and  PULL.  Default  is  SYSl.FORTLIB. 

FPARM.  This  defines  the  parameters  for  all  FORTRAN  compiler  steps. 

The  default  is  MAP. 

FPROG.  This  is  the  name  of  the  FORTRAN  compiler.  Default  is  IFEAAB. 

FREG.  This  is  the  REGION  size  for  all  compiled  steps  in  the  procedures. 

Default  is  512K. 

FPl.  This  defines  the  printed  output  from  all  compiler  steps.  Default  is 
SYSOUT  = A. 

FSPAC  E.  This  defines  the  SYSLIN  space  for  all  compiler  steps.  Default  is 
(TRK,  (10,5), RLSE). 

FTIME.  This  is  the  time  limit  for  all  compiler  steps.  Default  is  (1,0), 
except  in  HLIB  where  it  is  (0,5). 

GENO.  This  defines  the  version  of  the  old  SAIL  file.  The  data  set  name  for 
the  old  SAIL  file  Is  OLDPRE/OLD/GENO.  Note.  The  old  SAIL  file  for  SLIB  is  the 
one  containing  SAIL  while  it  is  the  one  containing  HULL  for  all  other  procedures.  ! > 

Default  is  10).  1 


LABO. 


The  table  type  for  the  old  SAIL  file  data-set.  Default  is  null. 

LNAME.  This  defines  member  name  for  the  main  program  in  the  procedures 
KEEL,  HULL  and  PULL.  Default  is  the  procedure  name. 

LPARM.  This  defines  the  parameters  for  all  linkage  editor  steps.  Default  is 
MAP.  Note  in  procedures  SLIB  and  HLIB,  the  parameter  NCAL  is  always  Included. 

LPROG.  This  is  the  name  of  the  linkage  editor.  Default  is  lEWL. 

LREG.  This  is  the  REGION  size  for  all  linkage  editor  steps.  Default  is  250K . 

LPl.  This  defines  the  printed  output  from  all  linkage  editor  steps.  Default  is 
SYSOUT  = A. 

LTIME.  This  defines  the  time  limit  for  all  linkage  editor  steps.  Default  is 
(0,45),  except  in  HUB  where  it  is  (0,10). 

OLD.  This  is  the  primary  old  SAIL  file  name  (see  GENO) . Default  is  SAIL 
for  SLIB  and  HULL  for  all  other  procedures. 

QT.DDCB.  This  defines  the  DCB  parameters  of  the  old  SAIL  file.  Default  is 

null. 

OLDDS.  This  is  the  deposition  of  the  old  SAIL  file.  Default  is  SHR. 

OLDPRE.  The  prefix  for  the  old  SAIL  file  (see  GENO).  Default  is  SAIL, 

OLDU.  The  UNIT  field  for  the  old  SAIL  file.  Default  is  nuU. 

OLDVOL.  The  VOLUME  field  for  the  old  SAIL  file.  Default  is  null. 

PRROG.  The  member  name  in  the  HULL  library  for  program  PLANK.  Default 
is  PLANK  in  KEEL,  HULL  and  PULL. 

PNAME.  The  member  where  the  program  PLANK  is  to  be  stored  in  PGEN. 
Default  is  PLANK. 

PLENSP.  This  is  the  space  for  the  source  output  from  SAIL  in  the  procedure 
PGEN.  Default  is  (CYL,(15,5),RLSE). 
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PPl.  This  defines  the  printed  output  from  PLANK  in  procedures  KEEL,  HULL  | 

and  PULL.  I 


PLREG.  This  is  the  REGION  size  for  the  execution  step  of  procedure  PULL. 
Default  is  512K. 


PLTIME.  This  is  the  time  limit  for  the  execution  step  of  procedure  PULL. 
Default  is  3. 

PRCN.  This  defines  the  nmnber  of  records  in  die  random  SAIL  procedure  file. 
The  default  is  5000,  but  should  be  set  to  the  value  of  NUMREC  used  to  generate  SAIL. 

PRCL.  This  defines  the  length  of  the  random  SAIL  records.  The  default  is 
3644  and  should  be  set  to  8*LBUFF,  v^ere  LBUFF  is  the  LBUFF  value  used  to 
generate  SAIL. 

PSl.  This  defllnes  the  primacy  printed  outpiit  from  SAIL.  The  default  is 
SYSOUT  = A. 

PS2.  This  defines  the  error  output  from  SAIL.  The  default  is  SYSOUT  = A. 

PULLSP.  This  defines  the  space  allocated  for  the  source  output  data  set  for 
the  SAIL  step  of  PULL.  The  default  is  (CYL,(10,5),RLSE). 

SATT.B2K.  This  defines  the  block  size  for  the  source  data  sets  which  are 
generated  by  SAIL  in  all  procedures.  The  default  is  800. 

SATT^R-  This  defines  the  record  length  of  the  source  data  sets  which  are 
generated  by  SAIL.  The  default  is  80. 


1 


i 


SCRTC.  The  UNIT  field  which  defines  the  scratch  disk.  Default  is  SYSDA. 

SREG.  The  REGION  size  for  the  SAIL  execution  step.  Default  is  175K. 

STIME.  The  time  limit  for  the  SAIL  step.  The  default  is  (2,0). 

WORKSP.  The  SPACE  definition  of  all  scratch  data  sets  used  by  all  the 
procedures.  The  default  is  (CYL,(5,5)). 
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step  names  used  in  the  procedures  are  listed. 


SAIL,  The  SAIL  execution  step. 

HULL.  The  copy  step  in  procedure  HULL. 

KEEL.  The  copy  step  in  the  procedure  KEEL. 

PULL.  The  copy  step  in  the  procedure  PULL. 

ASN.  The  assembler  step  in  procedures  SLIB  and  HLIB. 

FORT.  The  FORTRAN  compiler  step  in  procedures  PGEN,  KEEL,  HULL 
and  PULL. 

LKED.  The  linkage  editor  step  in  procedures  PGEN,  KEEL,  HULL  and  PULL. 

LKEDA.  The  linkage  editor  st^  for  the  assembly  language  routines  in  pro- 
cedures SLIB  and  HLIB. 

FORT^.  The  FORTRAN  compiler  steps  for  procedures  SLIB  (1  > n > 6)  and 
HUB  (1  > n >9). 

LKED  . The  linkage  editor  step  for  the  routine  compiled  in  the  FORT^  step  of 
procedures  SLIB  and  HLIB. 

PLANK.  The  step  in  procedures  KEEL,  HULL  and  PULL,  where  PLANK  is 
executed. 

GO.  The  step  in  procedures  KEEL,  HULL  and  PULL , where  the  main  ixnitine 
is  executed. 

The  required  DD  cards  in  the  procedures  are  listed. 

SAIL.  INPUT.  The  SAIL  directives  and  changes  for  all  procedures.  It  may  be 
dummied  in  procedures  KEEL,  HULL,  and  PULL  if  there  are  no  changes.  When  the 
procedures  SLIB,  HLID,  and  PGEN  are  envoked,  the  proper  programs  from  the 
system  must  be  selected  by  SAIL  directives  here.  In  SLIB  the  required  program  is 
LIB;  in  HUB,  it  is  UBRARY;  and  in  PGEN,  it  is  PLANK. 


I 

\ 


KEEL.nrPUT.  This  data  set  contains  the  KEEL  Input  as  described  in  section  V 
used  in  the  procedure  KEEL. 

KEEL. DATA.  This  is  the  data  set  which  will  contain  the  HULL  dump  tape 
described  in  section  IV.  This  DD  card  is  used  in  procedure  KEEL. 

KEEL.  STATION . This  DD  card  defines  the  station  tape  file  procedure  in  KEEL 
as  described  in  section  IV.  It  may  be  dummied  if  there  are  no  stations  in  the  problem. 

HULL. INPUT.  This  DD  card  defines  the  HULL  input  as  described  in  section 
VI  as  used  in  procedure  HULL. 

HULL.  DATA.  This  DD  card  defines  the  HULL  dump  tape  data  set  for  the  prob- 
lem to  be  run  as  used  in  procedure  HULL. 

HULL . STATION . This  DD  card  defines  the  station  t^e  data  set  for  the  problem 
as  used  in  procedure  HULL.  It  may  be  dtunmied  if  there  are  no  stations. 

PULL. INPUT.  This  DD  card  defines  the  PULL  input  as  described  in  section 
Vn  as  nanoseconds. 


PULL.  DATA.  This  DD  card  defines  the  HULL  dump  tape  data  set  for  the 
problem  to  be  plotted  in  procedure  PULL. 


//♦ 

« * * « 

//♦ 

//• 

NAME 

//♦ 

SLIB 

//♦ 

//* 

FORMAT 

//• 

//  EXEC  SLIB,... (OPTIONAL  PARAMETERS 

AS  REQUIRED) 

//♦ 

//SAIL. INPUT  DD  ♦ 

//♦ 

//• 

SAIL  CHANGES 

//* 

//* 

/* 

//* 

//♦ 

FUNCTION 

//* 

THIS  PROCEDURE  EXECUTES  THE  SAIL  PROGRAM 

AND  GENERATES  A NEU 

//♦ 

SAIL  LIBRARY 

//♦ 

//* 

* * « * 

//SLIB  PROC  LIB>HULLIB, 

X 

// 

LIBDSP-'tOLDjKEEP)', 

X 

// 

LIBPREs'SAIL.', 

X 

// 

LIBU», 

X 

// 

LIBV0L=, 

X 

// 

APROG^IFOXBB, 

X 

// 

ARE6=187K, 

X 

// 

ATINE»'(B,15)', 

X 

// 

APARM»'L0A0,N00ECK% 

X 

// 

ANACL»''SYS1.NACLIB', 

X 

// 

AP1«^SYS0UT»A', 

X 

// 

CHNBLK>3521, 

X 

// 

CHNLRL»3517, 

X 

// 

FIL0», 

X 

// 

FPARMsMAP, 

X 

// 

FPR06-IFEAAB, 

X 

Jl 

FREG»512K, 

X 

// 

FPIs'SYSOUTsA", 

X 

// 

FSPACE  = ''(TRK,(1«,5),RLSE)'', 

X 

// 

FTINE»'(1,B)S 

X 

// 

GEMOaMB)', 

X 

// 

LABOa, 

X 

// 

LPARMa'MAP', 

X 

// 

LPROGalEUL, 

X 

// 

LREGa2SBK, 

X 

// 

LPIa'SYSOUTaA", 

X 

// 

LTINEa'(l,45)', 

X 

// 

SLIBSPa’(TRK,(5,5),RLSE)S 

X 

// 

0LD«SAIL, 

X 

// 

OLDDCBa, 

X 

// 

OLDDSaSHR, 

X 

// 

OLDPREa'SAIL.", 

X 

// 

OLDUa, 

X 

// 

OLDVOLa, 

X 

// 

PRCNaSIBI, 

X 

// 

PRCLa344f, 

X 

// 

PSla'SYSOUT«A', 

X 

Figure  C-1.  SUB.  Procedure  to  Add  SAIL  Routine  to  Library 
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XXXXXxxXXxXxxXXXXXXXXxXXK 


// 

// 

// 

// 

// 

n 

// 

// 

//♦ 

//SAIL  EXEC 
//* 

//STEPLIB  DD 
// 

// 

// 

//• 

//FTItFIBI  DD 
//♦ 

//FTB2FH1  DD 
// 

// 

// 

// 

//• 

//* 

//FT»3Ff«1  DD 
// 

// 

// 

//♦ 

//FTI4Ff«1  DD 
// 

//• 

//FTfSFffI  DD 
//* 

//FTI6F001  DD 
// 

//♦ 

//FTfSFffI  DD 
// 

// 

// 

// 

//• 

//FTf8Fff2  DO 
// 

// 

// 

// 

//• 

//FTfSFffS  DD 
// 

// 

// 

// 


PS2»'SyS0UT»A', 

SAILBLK-Bff, 

SAILR>8f, 

SCRTC^SYSDA, 

SPROG^SAIL, 

SREG«175K, 

STIHE=''(2,f)% 

WORKSP*^(CrL,(5,5))' 


P6N-SSPR06,TIHE-SSTINE,RE6I0N»SSRE6 

DSN^tLlBPREfLIB, 

UNlTsfLIBU, 

VOL><LIBVOL, 

OISPaSHR 

DUMMY 

DSM»tOLDPRE3DLDS6ENO, 

UNIT»tOLDU, 

LABEL»<fFILa,8LAB0,,IN), 

DISP^SOLDOS, 

VOL^aOLDVOL, 

DCB^aOLDDCB 

UNIT>aSCRTC, 

DISP>(NEU, DELETE), 

DCB>(RECFM»VBS,LRECL»SCHNLRL,BLKSIZE=SCHNBLK), 

SPACEs<TRK,(2f,2f)) 

tPS2, 

DCB><RECFM»FBA,LRECL=133,BLKSIZE>133f> 

DDNAME^INPUT 

3PS1, 

DCB»(RECFM«FBA,LRECL»t33,BLKSIZE»1330) 

DSN><ICOMPR, 

DISP>(NEU,PASS), 

UN1T>SSCRTC, 

SPACE=aSLIBSP, 

DCB»(RECFMsFB,LRECL»SSAILR,BLKSIZE»aSAILBLK) 

DSN>tS6ETNUM, 

DISP>(NEU,PASS), 

UNIT«aSCRTC, 

SPACE«SSLIBSP, 

DCB>(RECFM-FB,LRECL>aSAILR,BLKSIZE-aSAILBLK) 

DSN«tSGTUD, 

DISP«(NEU,PASS), 

UNIT>ISCRTC, 

SPACE>tSLIBSP, 

DCB-(RECFH>FB,LRECL«ISAILR,BLKSIZE«aSAILBLK) 
Figure  C-1.  (Continued) 
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//♦ 

//FT»8F»04 

OD 

0SN»t8INTE6, 

// 

OISP><NEU,PASS), 

// 

UNITsSSCRTC, 

// 

SPACE^ESLIOSP, 

// 

OCB»(RECFH=FB,LRECL-SSAILR,BLKSIZE=SSAILBLK) 

//♦ 

//FT08F«05 

OD 

DSNsXSSTOR, 

// 

DISP»<NEU,PASS), 

// 

UNIT»BSCRTC, 

// 

SPACE^’BSLIBSP, 

// 

DCB>(RECFH>FB,LRECL>SSAILR,BLKSIZEsSSAILBLK) 

//FT08F006 

DD 

OSN^SISTORN, 

// 

01SP-(NEU,PASS), 

// 

UHITsJSCRTC, 

// 

SPACE-SSLIBSP, 

// 

DCB-(RECFH»FB,LRECL:°SSAILR,BLKSIZE»8SAILBLK) 

//♦ 

//FT08F007 

OD 

DSNsISASSEH, 

J! 

DISP-(NEU,PASS), 

// 

UNITstSCRTC, 

// 

SPACE=tSLIBSP, 

// 

DCB>(RECFn>FB,LRECL=SSAILR,BLKSIZE»SSAIL6LK) 

/!* 

//FT08F008 

00 

DSN>t2LINK1, 

// 

DISP><NEU,PASS), 

// 

UN1T«SSCRTC, 

// 

SPACE^BSLIBSP, 

// 

DCB>(RECFM-FB,LRECL-<SAILR,BLKSIZE=2SAIL6LK) 

//* 

//FT08F009 

00 

DSNsSSLINKZ, 

// 

D1SP><NEU,PASS), 

n 

UNIT>BSCRTC, 

// 

SPACE>BSLIBSP, 

// 

DCB>(RECFH>FB,LRECL-SSAILR,BLKSIZE=SSAILBLK) 

//* 

//FT09F001 

DD 

DUHHY 

//* 

//FT10F001 

DD 

UNITsJSCRTC, 

// 

DISP»(NEU, DELETE), 

// 

SPACE-(SPRCL,(SPRCN)) 

//* 

//FTnF001 

00 

DUHHY 

//* 

//FT12F001 

DD 

OUHMY 

//ASH 

EXEC 

PGH»tAPR06,PARH-'BAPARH%RE6I0NoSARE6, 

// 

TIHE><ATIHE, 

// 

C0ND>(8,LT,SAIL) 

//• 

//SYSLIB 

DO 

DSN>SAHACL,DISP»SHR 

//♦ 

//SYSIN 

DD 

DSN»S8ASSEH,DISP-(0LD, DELETE) 

//* 

//SYSFRIHT 

00 

(API, 

Figure  C-1  (Continued) 


DCB«(RECFH>FBA,LRECL«133,BLKSIZE«1330) 


// 

//♦ 


//SYSUTl 

DO 

UNIT«SSCRTC,SPACEbBUORKSP 

//* 

//STSUT2 

DD 

UNIT»SSCRTC,SPACE«BUORKSP 

//• 

//SYSUT3 

DO 

UNIT>RSCRTC,SPACE«BUORKSP 

//• 

//SYSPUHCH 

DD 

SYSOUT«B 

//♦ 

//SYSCO 

DD 

DDNANE>SYSLIN 

//* 

//SYSLIH 

DD 

DSN*RBLOADSET, 

// 

UNIT>SSCRTC, 

// 

DISP«(NOD,PASS), 

// 

SPACE-tFSPACE, 

// 

DCB>(RECFH»FB,LRECL«8f,BLKSIZE>UBB) 

//LKEDA 

EXEC 

P6H-SLPR06,RE6I0N»SLRE6,TIHE«SLTINE, 

// 

C0ND>((4,LT,ASn),(8,LT,SAlL)), 

// 

PARHo^NCAL^SlPARN' 

//* 

//SYSPRIMT 

DD 

BLPl, 

// 

DCB>(RECFM>FBA,LRECL-133,BLKSIZE>133B) 

//♦ 

//SYSLIB 

DD 

DUNHY 

//♦ 

//SYSUTl 

DO 

UNI T^RSCRTC , SPACE»( 1024,(201,20)) 

//♦ 

//SYSLNOD 

DD 

DSN»tLIBPREBLIB, 

// 

UNIT=BLIBU, 

// 

VOL>SLIBVOL, 

// 

DISP>BLIBDSP 

//* 

//SYSLIN 

DD 

0SN*BBLINK1 ,OISP>(OLD, DELETE) 

Z/SAILD 

DO 

DSN-B<LOAOSET,DISP»(OLD, DELETE) 

//F0RT1 

EXEC 

PGH>SFPR0G,REGI0N3BFRE6,PARHs^IFPARH',TINE<BFTINE, 

// 

C0ND-(8,LT,SAIL) 

//♦ 

//SYSPRIMT 

DD 

SFPl, 

// 

DCB»(RECFH»FBA,LRECL-)33,BLKS1ZE»1330) 

//♦ 

//SYSLIH 

DD 

DSN»BSLOADSET, 

// 

DISP>(HOD,PASS), 

// 

UNIT^SSCRTC, 

// 

SPACE»BFSPACE, 

// 

DCB»(RECFN»BF,LRECL>80,BLKSIZE*U00) 

//« 

//SYSIN 

DD 

DSN>tBCOHPR,DISP:»(OLO, DELETE) 

//• 

//SYSUTl 

DD 

UNIT»SSCRTC,SPACE»SUORKSP 

//• 

//SYSUT2 

DD  UNIT=BSCRTC,SPACE-BUORKSP 

//• 

Figure  C-1  (Continued) 
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XXX 


//SYSTERH  DD  DUMMY 


//♦ 

//LKED1 

EXEC 

PGM«tLPR06,RE6I0MstLREGJIME»tLTIME, 

X 

// 

C0MD>((4,LT,F0RTt),(8,LT,SMIL)), 

X 

// 

PARM-'’MCAL,SLPARM^ 

Jl* 

//SYSPRIMT 

DD 

SLP1, 

X 

// 

DCB>(RECFM«FBA,LRECL>133,BLKSIZE>133D) 

//♦ 

//SYSLIB 

DD 

DUMMY 

//• 

//SYSUT1 

DD 

UNIT*SSCRTC,SPACE=( 1 »24 , < 200 , 20) ) 

//♦ 

//SYSLMOD 

DD 

DSN»SLIBPRE8LIB(C0MPR), 

X 

n 

UMIT-ILIBU, 

X 

// 

VOL-BLIBVOL, 

X 

// 

DISP=SLIBDSP 

//* 

//SYSLIM 

DD 

DSM>3SLOADSET,DISP=>(OLD, DELETE) 

// ------- 

//F0RT2 

EXEC 

PGM=«FPROG,REGION»SFREG,PARM»'JFPARM',TIME*«FTIME, 

X 

// 

C0ND>(8,LT,SAIL) 

//♦ 

//SYSPRIMT 

DD 

«FPI, 

X 

n 

DCB-(RECFM>FBA,LRECL=133,BLKSIZE=1330) 

//* 

//SYSLIM 

DD 

DSN>SSLOADSET, 

X 

// 

DISP«<MOD,PASS), 

X 

// 

UNIT>(SCRTC, 

X 

// 

SPACE>SFSPACE, 

X 

// 

DCB»(RECFHbBF,LRECL*80,BLKSIZE-1600) 

//* 

//SYSIM 

DD 

DSN-SSGETMUM,DISP-<OLD, DELETE) 

//* 

//SYSUTt 

DD 

UMIT=JSCRTC,SPACE=3U0RKSP 

//• 

//SYS0T2 

DD 

UNIT»8SCRTC,SPACE-SU0RKSP 

//♦ 

//SYSTERM 

DD 

DUMMY 

//LKED2 

EXEC 

PGM>>tLPR0G,RE6I0M=>«LREGJIME>SLTIME, 

X 

// 

C0MD»((4,LT,F0RT2),(8,LT,SAIL)), 

X 

// 

PARM>^NCAL,3LPARM^ 

//* 

//SYSPRIMT 

DD 

XLP1, 

X 

// 

DCB«(RECFM«FBA,LRECLst33,BLKSIZE=1330) 

//♦ 

//SYSLIB 

DD 

DUMMY 

//« 

//SYSUT1 

DD 

UNIT*8SCRTC , SPACE>( 1 024 , ( 200,20 ) ) 

//♦ 

//SYSLMOD 

DD 

DSM>XLIBPREtLIG(6ETNUH), 

X 

// 

UMIT>SLIBU, 

X 

// 

VOL>tLIBVOL, 

X 

// 

DISP««LIBDSP 

Figure  C-1  (Continued) 
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//* 

//SYSLIM 

it* 

DD 

DSNatBLOADSET,DlSP- (OLD, DELETE) 

//F0RT3 

EXEC 

PGH»BFPROG,REGION»JFREG,PARH='JFPARH',TIME=*FTINE, 

X 

// 

C0NDs(8,LT,SAIL) 

//♦ 

//SYSPRIMT 

DD 

iFPI, 

X 

// 

DCB>(RECFH>FBA,LRECL>t33,BLKSIZE«133l) 

//* 

//SYSLIN 

DD 

DSN*S1L0ADSET, 

X 

// 

DISPs(HOD,PASS), 

X 

// 

UNIT-BSCRTC, 

X 

// 

SPACE-tFSPACE, 

X 

// 

DCB>(RECFN-BF,LRECL>80,BLKSIZE-1600) 

//♦ 

//S.SIH 

DD 

DSNsSSGTND,DISPa(OLD, DELETE) 

//♦ 

//SYSUTI 

DD 

UNIT=SSCRTC,SPACE=BUORKSP 

//* 

//SYSUT2 

DD 

UNIT^tSCRTC, SPACE^BUORKSP 

//* 

//SYSTERH 

DD 

DUHNY 

//LKED3 

EXEC 

PGH=BLPROG,REGIONstLREGJINE>SLTIHE, 

X 

n 

C0ND>((4,LT,F0RT3),(8,LT,SAIL)), 

X 

// 

PARHs'NCALjJLPARH" 

//* 

//SYSPRINT 

DD 

SLPt, 

X 

// 

DCB-(RECFN=FBA,LRECL-133,BLKSIZE=1330) 

/!* 

//SYSLIB 

DD 

DUHHY 

// 

//SYSUT1 

DD 

UNIT=SSCRTC,SPACE*-(  1024,  (200,20)) 

//• 

//SYSLHOD 

DD 

DSN>SLIBPREBLIB(6TUD), 

X 

// 

UNIT^BLIBU, 

X 

// 

VOL»BLIBVOL, 

X 

// 

DISPsBLIBDSP 

//* 

//SYSLIN 

DD 

DSNs2SLOADSET,DISP»(OLD, DELETE) 

//F0RT4 

EXEC 

PGH=*FPROG,REGION=JFREG,PAR«='XFPARN',TIME=»FTIHE, 

X 

// 

C0ND-(8,LT,SAIL) 

//♦ 

//SYSPRINT 

DD 

SFP1, 

X 

// 

DCB>(RECFN>FBA,LRECL>133,BLKSIZE>1330) 

//* 

//SYSLIN 

DD 

DSN^SBLOADSET, 

X 

// 

DISP>(NOD,PASS), 

X 

// 

UN1T>8SCRTC, 

X 

// 

SPACE^tFSPACE, 

X 

// 

DCB=(RECFN>BF,LRECL-80,BLKSIZE=1600) 

//* 

//SYSIN 

DD 

DSN>SSINTEG,DISP=>(OLD,  DELETE) 

//♦ 

Figure  C-1  (Continued^ 


//SYSUT1 
//♦ 

//sysuT2 
//♦ 

//SYSTERN  DO  DUMHY 


DO  UNIT«DSCRTC,SPACEatWORKSP 
DD  UNI T<2SCRTC, SPACE »IU0RKSP 


//•- 


EXEC 


00 


//LKED4 
// 

// 

//♦ 

//SYSPRIMT  DD 
// 

//• 

//SYSLIB 
//« 

//SYSUT1 
//♦ 

//SYSLHOD 
// 

// 

// 

//• 

//SYSLIN 


PGH>SLPR06,REGI0NsBLRE6,TINE=SLTINE, 

C0ND«<<4,LT,F0RT4),(8,LT,SAIL)), 

PARN»^NCAL,BLPARH^ 


BLP1, 

DCD«(RECFH=FBA,LRECL=133,BLKSIZE=133B) 


DD 


DUHNY 

UNI T-BSCRT  C , SP ACE»  < 1 024 , ( 20B , 20 ) ) 


DD 


DSN=tLIBPREBLIB(INTE6), 

UNIT*SLIBU, 

VOL-SLIBUOL, 

DISP-SLIBDSP 


DD  DSN«SBLOADSET,DISPs(OLD, DELETE) 


//*- 


//FORTS  EXEC  PGH=«FPROG,REGION»*FREG,PARH=' JFPAR«%TIHE»*FTIME, 
//  C0ND>(8,LT,SAIL) 

//♦ 

//SYSPRIMT  DD  «FP1, 


// 

//♦ 

//SYSLIN 

// 

// 

// 

// 

//♦ 

//SYSIN 

//* 

//SYSUT1 

//* 

//SYSUT2 

//• 

//SYSTERH 


DCB>(RECFH-FBA,LRECL>133,BLKSIZE*133«) 


DD  DSN>S8L0ADSET, 

DISP«(HOD,PASS), 

UNIT-BSCRTC, 

SPACE*IFSPACE, 

OCBs(RECFN-BF,LRECLs80,BLKSIZE=1i00) 


DD  DSN=SBSTOR,DISP><OLD, DELETE) 
DD  UNIT*tSCRTC,SPACE-BUORKSP 
DD  UNIT>BSCRTC,SPACE>=SUORKSP 
DO  DUMMY 


//♦- 


//LKED5  EXEC  PGH>(LPROG,REGION«<LREG,TIHE-SLTIME, 

//  C0ND>((4,LT,F0RT5),<8,LT,SAIL)), 

//  PARM«'NCAL,1LPARM' 

//♦ 

//SYSPRIMT  DD  BLP1, 

//  DCDa(RECFH«FBA,LRECL>t33,BLKSIZEs133«) 

//* 

//SYSLIB  DD  DUMMY 

//♦ 

//SYSUT1  DO  UNlT>«SCRTC,SPACE«(1f24,(2f0,2f)) 

//* 

Figure  C-1  (Continued) 


X 

X 

X 

X 
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//SYSLNOD 

DO  DSN»tLIBPREBLIB<STOR), 

X 

// 

UN1T«BLIBU, 

X 

// 

V0L>tLIBV0L, 

X 

n 

DISP>SLIBDSP 

//* 

//SYSLIH 

DD  DSN»SBLOADSET,DISPs (OLD, DELETE) 

//♦••••••• 

//F0RT6 

EXEC  P6N»*FPR0G,REGI0N=iFREG,PARH='»FPARM',TIHE=XFTIME, 

X 

// 

C0ND«(8,LT,SAIL) 

J/* 

//SYSPRIMT 

DD  BFPI, 

X 

// 

DCB-(RECFH>FBA,LRECL-133,BLKSIZE«1339) 

II* 

//SYSLIM 

DD  DSN-BSLOADSET, 

X 

// 

D1SP>(M0D,PASS), 

X 

// 

UNIT-SSCRTC, 

X 

n 

SPACE=«FSPACE, 

X 

n 

DCB>(RECFM>BF,LRECL-89,BLKSIZE=1600) 

II* 

IISYSIM 

DD  DSN*tSSTORN,DISPs(OLD, DELETE) 

11* 

//SYSUTl 

DD  UNITsBSCRTC,SPACE»BUORKSP 

n* 

//SYSUT2 

DD  UNITsBSCRTC,SPACE=tUORKSP 

II* 

//SYSTERH 

/ /A 

DD  DUHHY 

//LKED4 

EXEC  PGH-BLPROG,REGION=BLREG,TINE-BLTIHE, 

X 

// 

C0ND-((4,LT,F0RT6),(8,LT,SAIL)), 

X 

// 

PARH='MCAL,iLPARM' 

//* 

//SYSPRINT 

DD  SLP1, 

X 

// 

DCB»(RECFH=:FBA,LRECL-133,3LKSIZE»1330) 

n* 

//SYSLIB 

DD  DUMMY 

II* 

//SYSUTl 

DD  UMlT»BSCRTC,SPACE-( 1024, (200,20) > 

//♦ 

//SYSLHOO 

DD  DSN>SLIBPRESLIB, 

X 

// 

UNIT«tLIBU, 

X 

// 

VOL>BLIBVOL, 

X 

n 

D1SP>SLIBDSP 

/!* 

//SYSLIM 

DD  DSN>SBLOADSET,DISP»(OLD, DELETE) 

// 

//A 

DD  DSN=BBLINK2,DISP»(0LD, DELETE) 

//  PEMD 

Figure  C-1  (Continued) 
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//t*$***********HLIB*****  ************ 

Jl* 

//*  NAME 
//•  HLIB 
//* 

//*  FORMAT 

//*  //  EXEC  HLIB,. ..(OPTIONAL  PARAMETERS  AS  REQUIRED) 

//*  //SAIL. INPUT  DD  ♦ 

//* 

//*  SAIL  CHANGES 

//♦ 

//*  /* 

//* 

//*  FUNCTION 

/(*  THIS  PROCEDURE  EXECUTES  THE  SAIL  PROGRAM  AND  GENERATES  A NEU 
//*  SAIL  LIBRARY 
//* 


//*  * ♦ 

//HLIB 

PROC  LIB»HULLIB, 

// 

LIBDSP«MOLD,KEEP)‘', 

// 

LIBPRE='SAIL.S 

// 

LIBU*, 

// 

LIBV0L>, 

// 

APROG-IFOX0B, 

// 

ARE6*187K, 

// 

ATIME»'’(#,1«)', 

// 

APARNaaOADfNODECK", 

// 

ANACL^'SYSI.HACLIBS 

// 

AP1»'SYS0UT»A', 

// 

CHNBLK>3521, 

// 

CHNLRL>3517, 

// 

FIL0», 

// 

FPARH>HAP, 

// 

FPROGsIFEAAB, 

// 

FREG<512K, 

// 

FP1=''SYS0UT»A', 

// 

FSPACE»‘'(TRK,(10,5),RLSE) 

// 

FTIME»'(#,5)', 

// 

GEN0»M«)', 

// 

LABOs, 

// 

LPARMs'MAP', 

// 

LPROG>IEUL, 

// 

LREG»250K, 

// 

LRE6>250K, 

// 

LP1«'’SYS0UT=A', 

// 

LTIME»'(0,10)', 

// 

HLIBSP»'(TRK,(5,5),RLSE)' 

// 

OLD-SAIL, 

// 

0L0DCB», 

// 

OLDDS^SHR, 

// 

OLDPREs'SAIL.', 

// 

0L0U«, 

// 

0LDV0L>, 

// 

PRCN«5000, 

// 

PRCL«3440, 

X 

X 

X 

X 

X 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 
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X 
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// 

// 

// 

// 

// 

// 

// 

// 

// 

PSI.'SYSOUTaA', 

PS2»'SYS0UT»A'', 

SAILBLK»80«, 

SAILR>80, 

SCRTC>SYSDA, 

SPR06*SAIL, 

SREe»256K, 

STIHE»M2,»)', 

U0RKSP»'(CYL,(5,5))' 

//SAIL  1 

EXEC 

PGH»SSPR0G,TinE»SSTIHE,RE6I0N=SSREG 

//♦ 

//STEPLIB 

DO 

DSN^SLIBPREXLIB, 

// 

UNIT^iLIBU, 

// 

VOL>SLIBVOL, 

// 

DISP=SHR 

//* 

//FTI1FM1 

DO 

DUNNY 

//* 

//FT«2Flfl 

DD 

DSN»BOLDPREIOLO(GENO, 

// 

UNIT*SOLDU, 

// 

LABEL-(SFILO,SLABO,,IN), 

// 

DISP-SOLDDS, 

// 

MOL>SOLDVOL, 

// 

DCB>SOLDDCB 

//♦ 

//FTiSFMI 

OD 

UNIT>SSCRTC, 

// 

DiSP>(NEU, DELETE), 

// 

DCB>(RECFH>VBS,LRECL»SCHNLRL,DLKSIZE<SCHNBLK) 

// 

SPACE»(TRK,(20,29)) 

//* 

//FTi4FM1 

DD 

SPS2, 

// 

DCB>(RECFH=FBA,LRECL«133,BLKSIZE«t33«) 

/I* 

//FT«5F«S1 

DD 

DDNAHE^INPUT 

//* 

//FTf4FI«t 

DD 

tPSI, 

// 

DCB>(RECFH-FBA,LRECL-I33,BLKSIZE=1339) 

//* 

//FT08FI01 

DD 

DSN-3SBACKUP, 

// 

DISP>(NEU,PASS), 

// 

UNIT^SSCRTC, 

// 

SPACE*tHLIBSP, 

// 

DCB«(RECFN=FB,LRECL=XSAILR,BLKSIZE-XSAILBLK) 

//♦ 

//FT98Fff2 

DD 

DSK^XtVALUE, 

// 

DISP-(NEU,PASS), 

// 

UNIT-ISCRTC, 

// 

SPACE>SHLIBSP, 

// 

DCB>(RECFH»FB,LRECL>XSAILR,BLKSIZE>SSAILBLK) 

//* 

//FT98FI93 

DD 

DSN>S<CDATE, 

// 

OISPs(NEU,PASS), 

// 

UN1T«SSCRTC, 

// 

SPACE>tHLIBSP, 
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// 

DCB>(RECFH*FB,LRECL-tSAILR,BLKSIZE*8SAILBLK) 

//• 

//FTI8Fff4 

DD 

DSN«&SNEXT, 

X 

// 

DISP*(NEU,PASS}, 

X 

// 

UNIT>SSCRTC, 

X 

// 

SPACE*SHLIBSP, 

X 

// 

DCB»(RECFH-FB,LRECL-SSAILR,BLKSIZE«SSAILBU) 

//• 

//FTMFM5 

DD 

DSN«liSEARCH, 

X 

// 

DISPs(NEU,PASS), 

X 

// 

UNIT«tSCRTC, 

X 

// 

SPACE>IHLIBSP, 

X 

// 

DCB»(RECFN»FB,LRECL>SSAILR,BLKS1ZE-SSAILBLK) 

//FT08F006 

DD 

DSN»tSSINK, 

X 

// 

DISP>(NEU,PASS), 

X 

// 

UNIT^BSCRTC, 

X 

// 

SPACE>8HLIBSP, 

X 

// 

DCB-(RECFH>FB,LRECL>SSAILR,BLKSIZE»SSA1LBLK) 

//* 

//FT»8Ff#7 

DD 

DSN>BSRDL, 

X 

// 

DISP»<NEU,PASS), 

X 

// 

UNITsBSCRTC, 

X 

// 

SPACE«SHLIBSP, 

X 

n 

DCB«(RECFH>FB,LRECL>SSAILR,BLKSIZE>ASAILBLK) 

/I* 

//FT«8FI«8 

DD 

DSN>SSUR, 

X 

// 

DISP«(NEU,PASS), 

X 

// 

UNIT>tSCRTC, 

X 

// 

SPACE>BHLIBSP, 

X 

// 

DCBa(RECFH>FB,LRECL>tSAILR,BLKSIZE=SSAILBLK) 

//• 

//FT08F0i? 

DD 

DSN>SSSECOND, 

X 

// 

DlS?aiHEU,?ASS), 

X 

// 

UN1T>SSCRTC, 

X 

// 

SPACE=SHLIBSP, 

X 

// 

DCB»<RECFH»FB,LRECL=SSAILR,BLKSIZE=SSAILBLK) 

//• 

//FTI8F«t0 

DD 

DSN>tSASSEH, 

X 

// 

DISP>(NEM,PASS), 

X 

// 

UNIT»SSCRTC, 

X 

// 

SPACE»SHLIBSP, 

X 

// 

DCB»(RECFH-FB,LRECL=ASAILR,BLKS1ZE=<SAILBLK) 

//♦ 

//FT08F011 

DD 

DSN-tSLlNKt, 

X 

// 

DISP*(NEU,PASS), 

X 

// 

UNIT>tSCRTC, 

X 

// 

SPACE>IHLIBSP, 

X 

// 

DCB>(RECFH«FB,LRECLsBSAILR,BLKSIZE>8SAlLBLX) 

//* 

//FTf8F«12 

DD 

DSN>ABLINK2, 

X 

// 

DISP>(NEU,PASS), 

X 

// 

UNIT’SSCRTC, 

X 

// 

SPACEoSHLIBSP, 

X 

// 

DCB>(RECFH<FB,LRECLa<SAILR,BLKSIZE>ASAILBLK) 

//* 

Figure  C-2.  (Continued) 


185 


X ><  X 


//FTi8F0l3 

DD 

DSN-tBLIKK3, 

// 

DISP*(NEU,PASS), 

// 

UNIT>SSCRTC, 

// 

SPACE>SHLIBSP, 

// 

DCB>(RECFH»FB,LRECL-3SAILR,BLKSIZC>liSAILBLK) 

//• 

//FTMF«14 

DD 

DSK«BSLIKK4, 

// 

DISP>(NEU,PASS), 

// 

UNIWSCRTC, 

// 

SPACE^SHLIBSP, 

// 

DCB*(RECFM=FB,LRECL=BSAILR,BLKSIZEsSSAILBLK) 

//* 

//FTI9F»»1 

DD 

DUMMY 

//* 

//FTt«F0«1 

DD 

UMIT=iSCRTC, 

// 

DlSPs(NEU, DELETE), 

// 

SPACE-(SPRCL,(SPRCN)) 

//♦ 

//FT11F001 

DD 

DUMMY 

//* 

//FT12F0#1 

DD 

DUMMY 

// — 

//ASM 

EXEC 

PGMsSAPR06,PARM»'SAPARM%RE6I0NsSARE6, 

// 

TIME=IATIME, 

// 

C0ND»<8,LT,SAIL) 

//* 

//SYSLIB 

DD 

DSN>SAMACL,DISP=SHR 

//♦ 

//SYSIM 

DD 

DSN=mSSEM,OISP»<OLD, DELETE ) 

//♦ 

//SYSPRINT 

DD 

SAP1, 

// 

DCB=<  RECFM«FBA, LRECL= 1 33, BLKSIZE=1 33f ) 

//« 

//SYSUT1 

DD 

UNIT-SSCRTC,SPACE>SUORKSP 

//* 

//SYSUT2 

DD 

UNIT>XSCRTC , SPACE^SUORKSP 

//♦ 

//SYSUT3 

DD 

UNI T>BSCRTC , SPACE^BUORKSP 

//♦ 

//SYSPUMCH 

DD 

SYSOUT=B 

//* 

//SYSGO 

DD 

DDNAME<SYSLIN 

//♦ 

//SYSLIN 

DD 

DSN=tBLOADSET, 

// 

UNIT-BSCRTC, 

// 

DISPs<MOD,PASS), 

// 

SPACE>BFSPACE, 

// 

DCB«(RECFM=FB,LRECL«80,BLKSIZEs1600) 

//LKEDA 

EXEC 

PGM»tLPROG,REGION-tLREG,TIME>BLTIME, 

// 

C0ND>((4,LT,ASM),(8,LT,SAIL)), 

// 

PARM»'NCAL,«LPARM' 

/!* 

//SYSPRIMT 

DD 

tLPt, 

// 

DCB>(RECFN»FBA,LRECL>133,BLKSIZE»133B) 

X 

X 

X 

X 


X 

X 

X 

X 


X 

X 


X 

X 


X 

X 

X 

X 


X 

X 


X 
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//* 

//SrSLlB 

DD 

DUHNY 

//* 

//SYSUTI 

DD 

UNIT*BSCRTC,SPACE»< 1124, (200,20) ) 

//* 

//SYSLMOD 

DO 

DSN>tLIBPREBLIB, 

n 

UNIT«ILIBU, 

// 

VOL^tLIBVOL, 

// 

DISP'BLIBDSP 

//• 

//SYSLIN 

DD 

DSN>BSLINK1 ,DISP»(OLO, DELETE) 

//♦ 

//SAILO 

DD 

DSN>SSLOAOSET,DISP-(OLD, DELETE) 

//F0RT1 

EXEC 

PGN=»FPROG,REBIOM=»FREG,PARH='*FPARHSTIHE=SFTIHE, 

// 

C0N0>(8,LT,SAIL) 

//♦ 

//SYSPRIHT 

DD 

BFP1, 

// 

DCB>(RECFM>FBA,LRECL»133,BLKSIZE»1330) 

//• 

//SYSLIH 

DD 

DSN=BSLOADSET, 

// 

DISP>(HOD,PASS), 

N 

UNIT^BSCRTC, 

// 

SPACE^tFSPACE, 

// 

DCB=(RECFHsBF,LRECLs80,BLKSIZE=U00) 

//♦ 

//SYSIN 

DD 

DSN»SBBACKUP,DISP>(OLD, DELETE) 

//* 

//SYSUTI 

DD 

UNIT»tSCRTC,SPACE>8U0RKSP 

//♦ 

//SYSUT2 

DD 

UNIT»8SCRTC,SPACE»8UORKSP 

//* 

//SYSTERH 

DO 

DUMMY 

/ / 

//LKED1 

EXEC 

PGH»BLPROG,REGION>BLREG,TIHE-8LTIHE, 

// 

C0ND=<(4,LT,F0RT1),(8,LT,SAIL)), 

// 

PARM*''NCAL,»LPARM' 

n* 

//SYSPRIHT 

DO 

BLPt, 

// 

DCB«(RECFM‘FBA,LRECL>133,BLKSIZE=°1330) 

//♦ 

//SYSLIB 

DD 

DUMMY 

//* 

//SYSUTI 

DD 

UNIT>8SCRTC , SPACE>( 1 0 24 , ( 200 , 20) ) 

//* 

//SYSLHOD 

DO 

DSN>BLIBPRESLIB(BACKUP), 

// 

UNIT^BLIBU, 

// 

VOL-BLIBVOL, 

// 

DISPxSLIBOSP 

//* 

//SYSLIN 

DD 

DSH=*»LOADSET,DISP=(OLD, DELETE) 

//F0RT2 

EXEC 

PGM=JFPROG,REBION»SFREG,PARM='»FPARM',TIME=«FTIME, 

// 

C0ND-(8,LT,SAIL) 

/!* 
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//SYSPRINT 

DD 

*FP1, 

// 

DCB»(RECFH»FBA,LRECL»t33,BLKSIZE<>133») 

//* 

//SYSLIW 

00 

DSN>BBL0A0SET, 

// 

DISP>(NOD,PASS), 

// 

UNIT*BSCRTC, 

// 

SPACE>BFSPACE, 

// 

DCB-(RECFNsBF,LRECL=80,BLKSIZE=1600) 

//* 

//SYSIN 

00 

DSN»t3VALUE,DISP>(0LD, DELETE) 

//♦ 

//SYSUTl 

00 

UNIT*JSCRTC,SPACE=iUORKSP 

//♦ 

//SYSUT2 

DO 

UNIT»3SCRTC,  SPACE^  jlUORKSP 

//♦ 

//SYSTERM 

DO 

DUHHY 

//LKED2 

EXEC 

P6N=BLPR06,REGI0N»SLREG,TIHE=SLTIHE, 

// 

C0ND-((4,LT,F0RT2),(8,LT,SAIL)>, 

// 

PARHs'NCALfBLPARH" 

//* 

//SYSPRINT 

00 

SLP1, 

// 

DCB-<RECFH-FBA,LRECL-133,BLKSIZE=1330) 

//♦ 

//SYSLIB 

00 

DUHHY 

//• 

//SYSUTl 

00 

UN I T^SSCRTC , SPACES (1024,(200,20)) 

//♦ 

//SYSLHOD 

00 

DSNsBLIBPREBLIB(UALUE), 

// 

UNITsSLIBU, 

// 

VOLsSLIBVOL, 

// 

DISPsILIBDSP 

//« 

//SYSLIM 

00 

OSNsSILOADSET,DISP=(OLD, DELETE) 

//F0RT3 

EXEC 

PGH«*FPR0G,REGI0N»iFREG,PARH=''*FPARH',TIME=4FTIME, 

// 

C0NDs(8,LT,SAIL) 

//* 

//SYSPRINT 

DO 

4FP1, 

// 

DCBs(RECFHsFBA,LRECLst33,BLKSIZEst330) 

//♦ 

//SYSLIN 

00 

OSNsSSLOADSET, 

// 

DISPs(HOD,PASS), 

// 

UNITsBSCRTC, 

// 

SPACEsSFSPACE, 

// 

DCBs(RECFNsBF,LRECLs80,BLKSIZEsU00) 

//♦ 

//SYSIN 

00 

DSNs(4CDATE,DISPs(OLD,OELETE) 

//♦ 

//SYSUTl 

00 

UNITsBSCRTC , SPACEsXUORKSP 

//• 

//SYSUT2 

00 

UNITsSSCRTC , SPACEsSUDRKSP 

//• 

//SYSTERH 

00 

DUHHY 

//• 
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//LKED3 

EXEC 

PGN«jiLPR06,REGION-tLRE6,TINE>SLTIHE, 

X 

// 

C0ND»((4,LT,F0RT3),(8,LT,SAIL)), 

X 

// 

PARH>'’NCAL,3LPARH'' 

//* 

//SYSPRINT 

DD 

SLP1, 

X 

// 

DCB»(RECFHsFBA,LRECL»133,BLKSIZE=1330) 

//♦ 

//SYSLIB 

DD 

DUNHY 

//* 

//SYSUT1 

DD 

UNI Ts jSCRTC , SPACE=( 1 B24 , ( 20B , 20 ) ) 

//* 

//SYSLNOD 

DD 

DSNstLIBPREBLIB(CDATE), 

X 

// 

UNIT>SLIBU, 

X 

// 

UOL»SLIBVOL, 

X 

// 

DISP-SLIBDSP 

//* 

//SYSLIN 

DD 

DSN-tSLOADSET,DISP=<OLD, DELETE) 

//F0RT4 

EXEC 

PGN»iFPR0G,REGI0N=3FREG,PARN='»FPARN-',TIME=SFTIME, 

X 

// 

C0ND>(8,LT,SAIL) 

/!* 

//SYSPRINT 

DD 

JFP1, 

X 

Jf 

DCB><RECFH>FBA,LRECL«133,BLKSIZE=1330) 

//* 

//SYSLIR 

DD 

DSN«>SLOADSET, 

X 

// 

DISP*(nOD,PASS), 

X 

// 

UNIT*tSCRTC, 

X 

// 

SPACEbSFSPACE, 

X 

// 

DCB=<RECFH=BF,LRECL380,BLKSIZE=1600) 

//♦ 

//SYSIN 

DD 

DSN»SBNEXT,DISP>(OLD, DELETE) 

//« 

//SYSUTl 

DD 

UNIT-8SCRTC,SPACE»SU0RKSP 

//• 

//SYSUT2 

DD 

UNIT=tSCRTC,SPACE«aUORKSP 

//♦ 

//SYSTERH 

DD 

DUHNY 

//LKED4 

EXEC 

PGH-BLPR06,REGI0N-tLREGJIHE-SLTIHE, 

X 

// 

C0ND«((4,LT,F0RT4),(8,LT,SAIL)), 

X 

// 

PARH>''NCAL,tLPARN‘' 

//♦ 

//SYSPRINT 

DD 

SLP1, 

X 

// 

OCB><RECFH>FBA,LRECL«t33,BLKSIZE>1330) 

//♦ 

//SYSLIB 

DD 

DUNNY 

//♦ 

//SYSUTl 

DD 

UNIT«tSCRTC ,SPACE-( 1 0 24 , ( 200,20 ) ) 

//* 

//SYSLNOD 

DD 

DSN*SLIBPREILIB, 

X 

// 

UNIT'ILIBU, 

X 

// 

VOLatLIBVOL, 

X 

// 

DISP>tLIBDSP 

ft* 

//SYSLIN 

DD 

DSN>SSLOADSET,DISP>(OLD, DELETE) 
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// 

DD  DSH>tjiLINK2,DISP«(0LD, DELETE) 

//F0RT5 

EXEC  P6HaSFPR06,REGI0N=BFREG,PARN>''lFPARH^TIHE»SFTIHE, 

X 

// 

C0ND»(8,LT,SAIL) 

//* 

//SYSPRINT 

DD  SFPt, 

X 

// 

DCB>(RECFN>FBA,LRECL»133,BLKSIZE»I33B) 

//• 

' 

//SYSLIH 

DD  DSN»S8L0ADSET, 

X 

// 

DISP>(H0D,PASS), 

X 

// 

UNIT»BSCRTC, 

X 

// 

SPACE=BFSPACE, 

X 

// 

DCBs(RECFH<iBF,LRECLs8«,6LKSIZE>U00) 

//* 

//SYSIN 

DD  DSN»BBSEARCH,DISP« (OLD, DELETE) 

Jl* 

//SYSUTl 

DD  UNIT=BSCRTC,SPACE>>UORKSP 

//♦ 

//SYSUT2 

DD  UNIT>8SCRTC,SPACE>tU0RKSP 

//* 

//SYSTERM 

DD  OUNNY 

//LKED5 

EXEC  PGN=2LPR06,REC10N>BLRE6,TINE*BLTINE, 

X 

// 

C0ND><(4,LT,F0RT5),(8,LT,SAIL>), 

X 

// 

PARN»^NCAL,BLPARH' 

//♦ 

//SYSPRINT 

DD  SLP1, 

X 

// 

DCB>(RECFHsFBA,LRECL>133,BLKSIZE>1330) 

//* 

//SYSLIB 

DD  DUNHY 

//♦ 

//SYSUTl 

DD  UN I T«BSCRTC, SPACE- (1024,(200,20)) 

//♦ 

//SYSLHPD 

DD  DSN-BLIBPRESLIB(SEARCH), 

X 

// 

UNIT-8LIBU, 

X 

// 

VOL-tLIBVOL, 

X 

// 

OISP-BLIBOSP 

//♦ 

//SYSLIN 

DD  DSN-SBLOADSET,DISP« (OLD, DELETE) 

//F0RT6 

EXEC  PGH»*FPROG,REGION=»FREG,PARM='*FPARN'',TIHE=*FTIHE, 

X 

// 

C0ND>(8,LT,SAIL) 

/!* 

//SYSPRINT 

DD  «FP1, 

X 

// 

DCB-(RECFN>FBA,LRECL-133,BLKSIZE-1330) 

//♦ 

//SYSLIN 

DD  DSN-BBLOADSET, 

X 

// 

D1SP-(N0D,PASS), 

X 

// 

UNIT-BSCRTC, 

X 

// 

SPACE-BFSPACE, 

X 

// 

DCB-(RECFN-BF,LRECL=80,BLKSIZE-U00) 

Jl* 

//SYSIN 

DD  DSN=BBSINK,DISP-(OLD,DELETE) 

//♦ 

//SYSUTl 

DD  UNIT<BSCRTC,SPACE-BUORKSP 
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//* 

//SYSUT2 

//* 

//SYSTERH 

DD 

DD 

UNIT«SSCRTC , SPACE-tUORKSP 

DUMMY 

//LKE06 

EXEC 

P6H-BLPR06,REGI0M-BLRE6,TIHE=SLTIHE, 

// 

C0ND*((4,LT,F0RTi),(8,LT,SAIL)), 

// 

PARHa'MCAL,»LPARM' 

//♦ 

//SYSPRIMT 

DD 

JLP1, 

// 

DCB-(RECFH»FBA,LRECL-133,BLKSIZE-133B) 

//♦ 

//SYSLIB 

DD 

DUMMY 

//♦ 

//SYSUT1 

DD 

UMIT»SSCRTC , SPACE-( 1 624 , ( 260,20 ) ) 

//* 

//SYSLHOD 

DD 

DSM>tLIBPRESLIB(SIMK), 

// 

UMIT»SLIBU, 

// 

V0L>6LIBV0L, 

// 

DISP>6LIBDSP 

//♦ 

//SYSLIM 

DD 

DSM=JJLOADSET,DISP=(OLD, DELETE) 

//F0RT7 

EXEC 

PGM=*FPROG,REGIOM=*FREG,PARM='iFPARM',TIME=SFTIME, 

// 

C0HD»(8,LT,SAIL) 

//• 

//SYSPRIMT 

DD 

iFPI, 

// 

DCB»<RECFM=FBA,LRECL»133,BLKSIZE=1330) 

//• 

//SYSLIM 

DD 

DSMs63L0A0SET, 

// 

DISP>(MOD,PASS), 

// 

UMIT«SSCRTC, 

// 

SPACE-SFSPACE, 

// 

DCB-(RECFM>BF,LRECL=80,BLKSIZE=1600) 

//• 

//SYSIM 

DD 

DSM^^jSRDL.DISPs  (OLD, DELETE) 

//♦ 

//SYSUTi 

DO 

UM1T»<SCRTC,SPACE=6UDRKSP 

//♦ 

//SYSUT2 

DD 

UMlT=SSCRTC,SPACEsSUORKSP 

//♦ 

//SYSTERM 

DD 

DUMMY 

//LKED7 

EXEC 

PGH>6LPR0G,REGI0M»tLRE6,TIME-SLTIHE, 

// 

C0MD=((4,LT,F0RT7),(8,LT,SAIL)), 

// 

PARH>^MCAL,6LPARM' 

//• 

//SYSPRIMT 

DD 

SLP1, 

// 

DCB>(RECFM»FBA,LRECL»133,BLKSIZE=1330) 

//* 

//SYSLIB 

DD 

DUMMY 

//• 

//SYSUT1 

DD 

UMIT<<SCRTC , SPACE»( 1 624 , ( 260,20 ) ) 

//• 

//SYSLHOD 

DD 

DSM«SLIBPRESLIB(RDL), 
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//  UNIT-UIIU, 

//  V0L>SL1BV0L, 

//  OISP>tLIBDSP 

//♦ 

//SYSLIN  DD  DSN«SBLOADSET,DISP-(OLD, DELETE) 


//• 

//FORTS 

EXEC 

P6H>SFPR06,REGI0N»SFRE6,PARN>''BFPARNSTIHEaSFTINE, 

// 

C0ND>(8,LT,SAIL) 

//* 

//SYSPRINT 

DD 

*FP1, 

// 

DCB>(RECFN>FBA,LRECL>133,BLKSIZE=133B) 

//* 

//SYSLIH 

DD 

DSN«t<LOADSET, 

// 

DISP>(NOD,PASS), 

// 

UNIT-ISCRTC, 

// 

SPACE*iFSPACE, 

// 

DCB>(RECFN*BF, LRECL*80, BLKSIZE>1 601 ) 

//* 

//SYSIM 

DD 

DSN*<SUR,DISP*(OLD, DELETE) 

//♦ 

//SYSUT1 

DD 

UNITs8SCRTC,SPACE>8UORKSP 

//* 

//SYSUT2 

DD 

UNIT<8SCRTC, SPACE«8UORKSP 

//♦ 

//SYSTERM 

DD 

DUHNY 

//LKED8 

EXEC 

P6H»3LPR06,RE6I0N-SLRE6,TINE«SLTINE, 

// 

C0ND><(4,LT,F0RT8),(8,LT,SAIL)), 

// 

PARH«''NCAL,«LPARH^ 

//♦ 

//SYSPRINT 

DD 

SLP1, 

// 

DCB«(RECFN»FBA,LRECL>133,BLKSIZE»1330) 

//* 

//SYSLIB 

DD 

DUHNY 

//♦ 

//SYSUT1 

DO 

UNIT»SSCRTC, SPACE=( 1 024 , ( 200,20 ) ) 

//♦ 

//SYSLHOD 

DD 

DSN>SLIBPRESLIB, 

// 

UNIT-ILIBU, 

// 

VOL«SLIBVOL, 

// 

DISP>SLIBDSP 

//♦ 

//SYSLIN 

DD 

DSN>(SLOADSET,DISP»(OLD, DELETE) 

// 

DD 

DSN*tlLINK3,DISP><OLD, DELETE) 

//FORT? 

EXEC 

P6N«>FPR0G,REGI0N«SFRE6,PARH»^3FPARH'',TIHE«8FTIHE, 

// 

C0ND>(8,LT,SAIL) 

//♦ 

//SYSPRINT 

DD 

*FP1, 

// 

DCB>(RECFH*FBA,LRECL>133,BLKSIZE-1330) 

//♦ 

//SYSLIN 

DD 

DSN>SSLOADSET, 

// 

DISP>(NOD,PASS), 

// 

UNIT»4SCRTC, 

// 

SPACE>SFSPACE, 

X 


X 


X 


X 

X 


X 


X 

X 

X 


X 


X 


X 

X 

X 

X 


Figure  C-2.  (Continued) 


XXX 


DCB> (RECFH«BF ,LRECL»80, BLKSIZE* 1 6Bf ) 


// 

n 

//SYSIN  DO  DSN»StSECOND,DISP»<OLD, DELETE) 

//* 

//SYSUT1  DD  UNIT«8SCRTC,SPACE-SUORKSP 

//* 

//SYSUT2  DD  UNIT»8SCRTC,SPACE»SU0RKSP 

//* 

//SYSTERN  DD  DUHHY 


//« 

//LKED9  EXEC  P6N>SLPR0e,RE6I0N>SLREG,TIHE>SLTIHE,  X 

//  C0N0«<(4,LT,F0RT9),(8,LT,SAIL)),  X 

//  PARNa'NCALjiLPARH' 

//♦ 

//SYSPRIMT  DD  8LP1,  X 


//  DCD»(RECFH>FBA,LRECL>t33,BLKSIZE=1330) 

//* 

//SYSLID  DD  DUHHY 

//♦ 

//SYSUT1  DD  UNIT>8SCRTC,SPACE-(1f24,(2l0,28)) 

//♦ 

//SYSLHOD  DD  DSN*SLIBPRE8LID, 

//  UNIT><LIBU, 

//  VOL«SLIBVOL, 

//  DISP-BLIBDSP 

//♦ 

//SYSLIN  DD  DSN3S8LOADSET,DISP>(OLD, DELETE) 

//  DD  DSN>S8LINK4,DISP>(0LD, DELETE) 

//♦ 

//  PEHD 

Figure  C-2.  (Continued) 
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//* 

//* 

//♦ 

NAME 

//♦ 

P6EN 

//♦ 

//* 

FORMAT 

//♦ 

//  EXEC  PGEN,... (OPTIONAL  PARAMETERS 

AS  REQUIRED) 

//• 

//SAIL. INPUT  DD  * 

//• 

//* 

SAIL  CHANGES 

//• 

//* 

/• 

//* 

//♦ 

FUNCTION 

//• 

THIS  PROCEDURE  EXECUTES  THE  SAIL  PROGRAM  AND  6ENERATES  A NEU 

//• 

SAIL  LIBRARY 

//* 

//♦ 

//P6EN  PROC  LIB>HULLIB, 

X 

// 

LIB0S>M0LD,KEEP)^ 

X 

// 

LIBPRE-'SAIL."  , 

X 

// 

LIBU>, 

X 

// 

LIBVOL*, 

X 

// 

CHNBLK>3S21, 

X 

// 

CHNLRL>3S17, 

X 

n 

FILO>, 

X 

// 

FLIB«'SYSl.FORTLIB', 

X 

// 

FPARNaNAP, 

X 

// 

FPR06«IFEAAB, 

X 

// 

FRE6«5I2K, 

X 

// 

FP1*'SYS0UT»A', 

X 

// 

FSPACE»'(CYL,(1I,5),RLSE)% 

X 

// 

F7IME»'(J,I)% 

X 

// 

6EN0*Mf)'’, 

X 

// 

LAB0-, 

X 

// 

LPARM-'MAP', 

X 

// 

LPR06-IEUL, 

X 

// 

LRE6«25fK, 

X 

// 

LPI-'SYSOUT-AS 

X 

// 

LTIME»Mf,43)% 

X 

// 

PGENSP»'(CYL,(5,5),RLSE)', 

X 

// 

OLD>HULL, 

X 

// 

0LDDCB>, 

X 

// 

0LDDS«SHR, 

X 

// 

OLDPRE«'SAIL.'  , 

X 

// 

0LDU«, 

X 

// 

OLDVOL-, 

X 

// 

PNANE>PLANK, 

X 

// 

PRCN«Sf#B, 

X 

// 

PRCL«344I, 

X 

// 

PSl»'SYSOUT«AS 

X 

// 

PS2«'SYS0UT»A', 

X 

// 

SAILBLKsSH, 

X 

// 

SAILR«8f, 

X 

// 

SCRTC>SYSDA, 

X 

Figure  C-3.  PGEN.  Procedure  to  Generate  PLANK 
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// 

SPR06-SAIL, 

// 

SRE6*t73K, 

// 

STIME»'(2,0)', 

// 

UORKSP»'(CYL,(5,3))' 

//SAIL  1 

EXEC 

P6N>ISPR06,TINE«ISTINE,REGI0N>SSRE6 

//• 

//STEPLIB 

DD 

DSN«SL1BPREBLIB, 

// 

UNIT«BLIBU, 

// 

VOL«tLIBVOL, 

// 

DISP«SHR 

//* 

//FTBIFBBI 

DD 

DUMMY 

//• 

//FTi2FM1 

DD 

DSN-tOLDPREBOLDB6ENO, 

// 

UNlT«tOLDU, 

// 

LABEL*(SFILO,tLABO,,IN), 

// 

DISP*tOLDDS, 

// 

VOL>tOLDVOL, 

// 

DCB>IOLODCB 

//* 

//FTiSFBBI 

DD 

UNIT>tSCRTC, 

// 

DISP*(NEU, DELETE), 

// 

DCB>(RECFM*VBS,LRECL>XCHNLRL,BLKSIZE>SCHNBLK), 

// 

SPACEs(TRX, <20,20)) 

//♦ 

//FTf4F»»1 

DD 

BPS2, 

// 

DCB>(RECFM>FBA,LRECL*t33,BLKSIZE«1330) 

//♦ 

//FTI5FM1 

DD 

DDNAME-INPUT 

//♦ 

//FTI6FBB1 

DD 

3PS1, 

// 

DCB><RECFM»FBA,LRECL*l33,BLKSIZE*t330) 

//• 

//FTffBFBBI 

DD 

DSN><tPLANK, 

// 

DISP«<NEU,PASS), 

// 

UNIT«SSCRTC, 

// 

SPACE>tP6ENSP, 

// 

DCB«(RECFM«FB,LRECL>3SAILR,BLKSIZE»ISAILBLK) 

//• 

//FTB9FM1 

DD 

DUMMY 

//♦ 

//FTI0F0#1 

DD 

UNIT={SCRTC, 

// 

DISP><NEU, DELETE), 

// 

SPACE><SPRCL,(aPRCN)) 

//♦ 

//FTIIFIBI 

DD 

DUMMY 

//♦ 

//FT12F001 

DD 

DUMMY 

//♦  — — — • 

//FORT 

EXEC 

P6M»SFPR06, 

// 

RE6I0N*SFRE6, 

// 

PARM«'’NAME>SAIL,3FPARM', 

// 

TIME>SFTIME, 

// 

C0ND>(8,LT,SAIL) 

X 

X 

X 


X 

X 

X 


X 

X 

X 

X 

X 


X 

X 

X 


X 


X 


X 

X 

X 

X 


X 

X 
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//* 

//SYSPRINT  DD  IFPI, 

//  0CB«(RECFN«FBA,LRECL>t33,BLKSIZE«t33l) 

//♦ 

//SYSLIN  DD  DSN>tBLOADSET, 

//  DISP«(HOD,PASS), 

//  UNIT«>SCRTC, 

//  SPACE«IFSPACE, 

//  DCB>(RECFN>BF,LRECL>8f,BLKSIZE>U0B> 

//• 

//SYSIN  DD  DSN>tBPLANK,OISP>(OLD, DELETE) 

//♦ 

//SYSUT1  DD  UNIT>BSCRTC,SPACE»tUORKSP 

//* 

//SYSUT2  DD  U)iIT«BSCRTC,SPACE«tUORKSP 

//* 

//SYSTERN  DD  DUNHY 

//♦ 

//LKED  EXEC  P6N>>LPR06,RE6I0N*BLRE6,T1NE>>LTINE, 

//  COND«( (4,LT,F0RT), (8,LT,SAIL) ) , 

//  PARH»'BLPARM' 

//♦ 

//SYSPRINT  DD  8LP1, 

//  DCB>(RECFN>FBA,LRECL«133,BLKSIZE>t33l) 

//♦ 

//SYSLIB  DD  DSN>IFLIB,DISP«SHR 

//  DD  DSN>ILIBPREBLIB,DISP>SHR 

//• 

//SYSUT1  DD  UNlT»&SCRTC,SPACE«(t824,<28f,28)) 

//♦ 

//SYSLHOO  DD  DSN>tLIBPREBLIB(BPNANE), 

//  UNIT>SLIBU, 

//  VOL-ILIBVOL, 

//  DlSP>tLIBDS 

//* 

//SYSLIN  DD  DSN>t<LOADSET,OISP>(OLD,OELETE) 

//* 

//  PEND 


Figure  C-3.  (Continued) 


//«**!»*******  ***HEEl 
//• 

//*  NAME 
//*  KEEL 
//* 

//*  FORHAT 

//*  //  EXEC  KEEL,...(OPTI 


KEEL,... (OPTIONAL  PARAHETERS  AS  REQUIRED) 
KEEL,... (OPTIONAL  PARAHETERS  AS  REQUIRED) 
DD  ..HULL  STATION  DATA  SET  (NEU).. 


KEEL  INPUT  CARDS 

/* 

//SAIL. INPUT  OD  * 
SAIL  CHANGES 


//*  //  EXEC  KEEL,... (OPTIONAL  PARAHETERS  AS  REQUIRED) 

//«  //  EXEC  KEEL,... (OPTIONAL  PARAHETERS  AS  REQUIRED) 

//«  //KEEL. STATION  DD  ..HULL  STATION  DATA  SET  (NEU).. 

//♦  //KEEL. INPUT  DD  ♦ 

//• 

//«  KEEL  INPUT  CARDS 
//♦ 

//♦  /* 

//•  //SAIL. INPUT  DD  * 

/!* 

//*  SAIL  CHANGES 

//♦ 

//•  /♦ 

//♦ 

//*  FUNCTION 

//*  THIS  PROCEDURE  EXECUTES  THE  PROBLEN  INIATIALIZATION  PR06RAH 

//«  (KEEL)  FRON  THE  HULL  HYDRO-CODE  SYSTEN 

//* 

//KEEL  PROC  LIB-HULLIB,  X 

//  LIBPRE«'SAIL.',  X 

//  LIBU-,  X 

//  LIBVOL-,  X 

//  CHNBLK-3521,  X 

//  CHNLRL>3St7,  X 

//  CREG«1I«K,  X 

//  FLIB-'SYSI.FORTLIB',  X 

//  FILO-,  X 

//  FPARN«HAP,  X 

//  FPROG>IFEAAB,  X 

//  FPI-'SYSOUT-A",  X 

//  FSPACE«‘'(CYL,(1i,5),RLSE)'',  X 

//  FTIHE»M1,I)',  X 

//  GENO-MB)',  X 

//  608PACE-'(CYL,(2I,5,I))', 

//  LABO>, 

//  LNAHE«KEEL, 

//  LPARH»'HAP', 

//  LPROG>IEUL, 

//  LRE6«29iK, 

//  LPI-'SYSOUT-A", 

//  LTIHE-M#,45)', 

//  KEEL8P»MCYL,(1B,5),RL8E)', 

//  KREG»512K,  > 

//  KP1»'SYSOUT«A',  X 

//  KTIHE»'(2,B)',  X 

//  OLD>HULL,  X 

//  OLDDCB-,  X 

//  OLDDS«SHR,  X 


Figure  C-4.  KEEL.  Procedure  to  Run  KEEL 


XXXMXXXXX 


// 

OLDPRE-'SAIL.', 

// 

OLOU-, 

// 

OLDVOL«, 

// 

PPR06>PLANK, 

// 

PP1»'SYSOUT-A', 

// 

PRCN-Sfff, 

// 

PRCL>344f, 

// 

PREG>1ffK, 

// 

PTINE»M1,I)', 

// 

PS1»'SYSOUT»A', 

// 

P82»''SYS0UT»A% 

// 

SAILBLK«8ff, 

// 

SAILR-8f, 

n 

SCRTC-SYSOA, 

/! 

SPR08«SAIL, 

// 

SRE6>I7SK, 

// 

STIHE-M2,#)S 

// 

UORKSP>MCYL,(S,S))' 

//KEEL 

EXEC 

P6N*IED6ENER,RE6I0N«tCRE6 

//SYSPRINT 

DD 

DUNNY 

//SYSIN 

DO 

DUHNY 

//SYSUTI 

OD 

DDNANEsINPUT 

//SYSUT2 

OD 

DSN-(AKEELI , 

// 

DISP«(NEU,PASS), 

// 

UNIT«ISCRTC, 

// 

SPACE»(TRK,(3,5),RLSE), 

// 

DCB><RECFN«FB,LRECL«8l,BLKSIZE>UDf) 

//PLANK 

EXEC 

P6N>8PPR06,TIHE«IPTINE,RE6I0N>tPRE6 

//♦ 

//8TEPLIB 

DD 

DSN-SLIBPREILIB, 

// 

UNIT>tLIDU, 

// 

V0L>tL18V0L, 

// 

DISP-SHR 

//♦ 

//FTISFfft 

OD 

DSN>SSKEELI,DISP><OLD,PASS) 

//* 

//FTfAFIfl 

DD 

IPP1, 

// 

DC8>(RECFH*FDA,LRECL«133,DLKSIZE>133«: 

//♦ 

//FT#7FM1 

DD 

DSN>>tALTI, 

// 

DISP>(NEH,PASS), 

// 

UNIT'tSCRTC, 

// 

SPACE-(TRK,(S,5),RLSE}, 

// 

DCD>(RECFN>F8,LRECL>8B,BLKSIZE-U«f) 

//SAIL 

EXEC 

P6N>tSPR06JINE>tSTINE,REei0N*DSRE6, 

// 

C0ND«(8,LT, PLANK) 

//♦ 

//STEPLIB 

DD 

DSN>IL1BPRE>LIB, 

// 

UNIT«tLI8U, 

// 

V0L«8LIBV0L, 

// 

D1SP>SHR 

//• 

Figure  C-4.  (Continued) 


198 


I 


//FTItFiil 

OD 

DUMMY 

//• 

//FTf2F#«t 

DO 

OSN«IOLDPRESOLDa6ENO, 

// 

UNIT*tOLDU, 

// 

LABEL*(<FILO,SLABOmIN)» 

// 

DISP>BOLODS, 

// 

VOL>BOLDVOL, 

// 

OCB«SOLDDCB 

//• 

//FTf3FI«1 

DO 

UNIT>SSCRTC, 

// 

DISP>(NEU, DELETE), 

// 

DCB*(RECFM>VBS,LRECL>SCHNLRL,BLKSIZE>SCHNBLK), 

// 

SPACE>(TRK,(2f,2f)) 

//♦ 

//FTHFlil 

DD 

SPS2, 

// 

DCB3(RECFN»FBA,LRECL>133,BLKSIZE»1330) 

//♦ 

//FTfSFf0t 

DO 

DDNAME>INPUT 

//• 

//FTIAFIfl 

DO 

BPS1, 

// 

DCB>(RECFMsFBA,LRECL>133,BLKSIZE>1330) 

//♦ 

//FTfSFfft 

DD 

OSN>tBKEEL, 

// 

DISP»<NEU,PASS), 

// 

UNIT>S8CRTC, 

// 

SPACE»SKEELSP, 

// 

DCB*(RECFN>FB,LRECL»XSA1LR,BLKSIZE»BSAILBLK) 

//♦ 

//FTi9Ffi1 

DD 

DSN>S3ALTI,DISP»(DLD, DELETE) 

//* 

//FTIfFllt 

DD 

UNIT«SSCRTC, 

// 

DISP*<NEU, DELETE), 

// 

SPACE>(iPRCL,(3PRCN)) 

//♦ 

//FTIlFlil 

DD 

DUMMY 

//♦ 

//FT12FM1 

DD 

DUMMY 

//FORT  1 

EXEC 

P6M*tFPR06,RE6I0N*BFRE6,PARN-''tFPARM'’,TINE>BFTIME 

// 

C0MD«(<8,LT,PLANK),(8,LT,SA1L)) 

//♦ 

//SY8PRINT 

DD 

*FP1, 

// 

DCB«(RECFM-FBA,LRECL«t33,BLKSIZE-133f) 

//* 

//SYSLIN 

DD 

DSN>(BLOADSET, 

// 

DISP><MOD,PASS), 

// 

UNIT«BSCRTC, 

// 

SPACE>3FSPACE, 

// 

DCB-(RECFM>BF,LRECL>8«,BLKSIZE>160f) 

//* 

//SYSIR 

DD 

DSN>StKEEL,DISP>(OLD, DELETE) 

//• 

//SYSUTI 

DD 

UNIT3SSCRTC,SPACE»(CYL,(2,2)) 

//♦ 

//SYSUT2 

OD 

UN1T>BSCRTC,SPACE»(CYL, (2,2) ) 

X 

X 

X 

X 

X 


X 

X 

X 


X 


X 


X 

X 


X 


X 


X 

X 

X 

X 


Figure  C-4.  (Continued) 
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//* 

//SrSTERH 

//* 

DD 

DUNHY 

//LKED  EXEC 

P6H>SLPR06,RE6I0N>SLRE6JINE>BLTIME, 

X 

// 

C0ND>((4,LT,F0RT),(B,LT,SAIL),(8,LT,PLANK)), 

X 

// 

PARH»'ILPARM' 

//• 

//SY8PRIHT 

DD 

SLPt, 

X 

// 

DCB«(RECFN>FBA,LRECL«133,BLKS1ZE-I33f) 

//♦ 

//SYSLIB 

DD 

DSN«tLIBPREILIB,DISP«SNR 

// 

DD 

DSN>BFLIB,OISP>SHR 

//♦ 

//SYSUT1 

DD 

UNIT>BSCRTC,SPACE«( 1124, (218,20) ) 

//* 

//SYSLMOD 

DD 

DSN-tt60SET(BLNANE), 

X 

// 

UNIT«BSCRTC, 

X 

// 

DISP*(,PASS), 

X 

// 

SPACE>S60SPACE 

//* 

//SYSLIN 

DD 

DSNsSSLOADSET,DISP»(OLD, DELETE) 

//GO  EXEC 

P6H-*.LKED.SYSLH0D,TIHE-SKTinE,RE6I0N=SKRE6, 

X 

// 

C0ND>((4,LT,LKED),(4,LT,F0RT),(8,LT,SAIL),(8 

,LT, PLANK)) 

//♦ 

//FTi4F««f 

DD 

DSN>« . KEEL . DATA , DZSP- ( OLD , KEEP ) 

//♦ 

//FTBSFlil 

DD 

DSN»iBKEai,OISP«(OLD, DELETE) 

//♦ 

//FT»6F##1 

DD 

SKP1, 

X 

// 

DCB»(RECFN>FBA,LRECL»t33,BLKSIZE>133«) 

//♦ 

//FTf9FiBl 

DD 

DSNAHE»«. KEEL. STATION, DISP=(OLD, KEEP) 

//♦ 

//FTliFMl 

DD 

UNIT^SSCRTC, 

X 

// 

SPACE*SUORKSP, 

X 

// 

D1SP«(NEU, DELETE), 

X 

// 

DCB>*.KEEL.DATA 

//• 

//FT11FM1 

DD 

UNIT>ISCRTC, 

X 

// 

SPACE«8UORKSP, 

X 

// 

DISP*(NEU, DELETE), 

X 

// 

DCB-*. KEEL. DATA 

//• 

//FTMFM1 

DD 

UNIT^SSCRTC, 

X 

// 

SPACE>SUORKSP, 

X 

// 

DISPXNEU, DELETE), 

X 

// 

DCB>*. KEEL. DATA 

//♦ 

//FT21Ffi1 

DD 

UKIT»SSCRTC, 

X 

// 

SPACE>IUORKSP, 

X 

// 

DISP*(NEU, DELETE), 

X 

// 

DCB>*. KEEL. DATA 

//• 

//FT44Fff1 

DD 

UNIT>SSCRTC, 

X 

Figure  C-4.  (Continued) 
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//*  «**«**«*«***«HULL**4<*«4^**4>*******« 

//* 

//*  NAME 
//*  HULL 
//• 

//•  FORHAT 

//♦  //  EXEC  HULL,... (OPTIONAL  PARAHETERS  AS  REQUIRED) 

//*  //HULL. DATA  DD  ..HULL  PROBLEH  DATA  SET.. 

//♦  //HULL. STATION  DD  ..HULL  STATION  DATA  SET.. 

//•  //HULL. INPUT  DD  ♦ 

//♦ 

//•  HULL  INPUT  CARDS 
//♦ 

//*  /* 

//*  //SAIL. INPUT  DD  + 

//♦ 

//«  SAIL  CHANGES 

//♦ 

//*  /* 

//• 

//*  FUNCTION 

//«  THIS  PROCEDURE  EXECUTES  THE  PROBLEH  PR06RAN 
//*  (HULL)  FROH  THE  HULL  HYDRO-CODE  SYSTEH 
//* 


//♦  • * 

• •*••*«*«**« 

//HULL 

PROC  LI6=HULLIB, 

X 

// 

LIBPRE»"SAIL.', 

X 

// 

LIBU», 

X 

// 

LIBVOL», 

X 

// 

CHNBLK=3521, 

X 

// 

CREG»10«K, 

X 

// 

CHNLRL=3317, 

X 

// 

|flLO=, 

X 

// 

FLIB^'SYSI.FORTLIB", 

X 

// 

FPARM»HAP, 

X 

// 

FPROG>IFEAAB, 

X 

// 

FREG»512K, 

X 

// 

FP1»-'SYS0UT*A', 

X 

// 

FSPACE='(CYL,(10,5),RLSE)'', 

X 

// 

FTIHE='(1,«)', 

X 

// 

6EN0>^(«)S 

X 

// 

G(’'PACE»'(CYL,(2«,5,1))', 

X 

// 

LAB0», 

X 

// 

LNAHE*HULL, 

X 

// 

LPARH-'HAP", 

X 

// 

LPR06-IEUL, 

X 

// 

LRE6>St2K, 

X 

// 

LP1«'SYSOUT»A', 

X 

// 

LTIHE»'(»,45)'', 

X 

// 

HULLSP»'(CYL,(1f,5),RLSE)', 

X 

// 

HP1*'SYSOUT»AS 

X 

// 

HREG«(75K, 

X 

// 

HTIHE»2, 

X 

// 

0LD>HULL, 

X 

// 

0L0DCB>, 

X 

Figure  C-5.  HULX.  Procedure  to  Run  HULL 


FT 


// 

0LDDS=SHR, 

X 

// 

0LBPRE»'SAIL.', 

X 

// 

0LDU=, 

X 

// 

0LBU0L=, 

X 

// 

PPR0G«PLANK, 

X 

// 

PP1«'SYSOUT»A', 

X 

// 

PRCN>5000, 

X 

// 

PRCL=3440, 

X 

// 

PRE6=100K, 

X 

// 

PTIME»'<1 ,0)', 

X 

// 

PS1»'SYS0UT»A', 

X 

// 

PS2=''SYS0UT=A', 

X 

// 

SAILBLK-800, 

X 

// 

SAILR-80, 

X 

// 

SCRTC=SYSDA, 

X 

// 

SPR06>SAIL, 

X 

// 

SRE6»t75K, 

X 

// 

STIHE='(2,0)', 

X 

// 

U0RKSP»MCYL,(5,5))' 

//**^"“"** 

//HULL 

EXEC  P6H-IEB6ENER,RE6I0N=SCREG 

//SYSPRIMT 

DD  DUHHY 

//SYSIN 

DD  DUMMY 

//SYSUT1 

DD  DDNAHE>INPUT 

//SYSUT2 

DD  DSN>SBHULLI, 

X 

// 

DISP>(NEU,PASS), 

X 

// 

UNIT=SSCRrC, 

X 

// 

SPACE=<TRK,<5,5),RLSE), 

X 

// 

DCB=(RECFHsFB,LRECL>80,BLKSIZE=U00> 

//PLANK 

EXEC  PGH=*PPROG,TINE=«PTIME,REGION=SPREG 

//♦ 

• 

//STEPLIB 

DD  DSN*iLIBPR£ILIB, 

X 

// 

UNIT^ILIBU, 

X 

// 

V0L=iLIBV0L, 

X 

// 

DISP»SHR 

//♦ 

//FT04FB01 

DD  DSNAHE-*. HULL. DATA, DISP- (OLD, KEEP) 

//♦ 

//FTi5F#»1 

DD  DSN=«BHULLI,DISPs(OLD,PASS) 

//♦ 

//FTB6F001 

DD  JPP1, 

X 

// 

DCB-<RECFN«FBA,LRECL»133,BLKSIZE=I330) 

//• 

//FT07F001 

DD  DSN^tSALTI, 

X 

// 

DISP>(NEU,PASS), 

X 

// 

UNIT-ISCRTC, 

X 

// 

SPACE>(TRK,(S,5),RLSE), 

X 

// 

DCB<<RECFN»FB,LRECL=80,BLKSIZE=f600) 

//SAIL 

EXEC  PGH>:SSPROG,TIHE»SSTINE,REGION=SSREG, 

X 

// 

C0ND»(8,LT, PLANK) 

//* 

//STEPLIB 

DD  DSN^SLIBPRESLIB, 

X 

// 

UNIT=4LIBU, 

X 
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// 

VOL-SLIBVOL, 

X 

// 

DISP-SHR 

//♦ 

//FT#1Ffl1 

DD 

DUHNY 

//* 

//FTf2FI01 

DD 

DSN>tOLDPRESOLDA6ENO, 

X 

// 

UNIT«SOLDU, 

X 

// 

LABEL>(SF1L0,SLAB0,,IN), 

X 

// 

DISP*mDDS, 

X 

// 

VOL*SOLDVOL, 

X 

// 

DCD«SOLDDCB 

//♦ 

. 

//FTf3Ffll 

DD 

UNlT-tSCRTC, 

X 

// 

DISP>(NEU, DELETE), 

X 

// 

DCB»<RECFH«VDS,LRECt -SCHMLRL,BLKS1ZE>SCHNBLK) , 

X 

// 

SPACE*<TRK,(2D,20>) 

//• 

//FTf4Fff1 

DD 

SPS2, 

X 

// 

DCB«<RECFH«FBA,LRECL>133,DLKSIZE*1330) 

//♦ 

//FTi5FI#1 

DD 

DDNAHE>INPUT 

//♦ 

//FTI6F0f1 

DO 

«PS1, 

X 

// 

DCB>(RECFN>FBA,LRECL»133,BLKSIZE«1330) 

//♦ 

//FTfSFffI 

DD 

DSN>S1HULL, 

X 

// 

DISP>(NEU,PASS), 

X 

// 

UNIT^tSCRTC, 

X 

// 

SPACE«SHULLSP, 

X 

// 

DCB*<RECFH«FB,LRECL-BSAILR,BLKSIZE>BSAILBLK) 

//* 

//FTf?Fif1 

DD 

DSN>SSALTI,DISP><OLD, DELETE) 

//♦ 

//FT1fF««1 

DD 

UNIT*ISCRTC, 

X 

// 

DISP»(NEU, DELETE), 

X 

// 

SPACE>(SPRCL,(tPRCN)) 

//♦ 

//FTIIFMI 

DD 

DUHHY 

//* 

//FT12F0I1 

DD 

DUMMY 

//FORT 

EXEC 

P6M>IFPR06,RE6I0N>SFREG,PARMs‘'SFPARM^TIME«BFTINE, 

X 

// 

C0ND«((8,LT,PLANK),(8,LT,SAIL)) 

//• 

//SYSPRINT 

DD 

»FP1, 

X 

// 

DCB>(RECFM*FBA,LRECL*133,BLKSIZE>1330) 

//♦ 

//SYSLIH 

DD 

DSN-tSLOADSET, 

X 

// 

DISP>(MOD,PASS), 

X 

// 

UNIT>tSCRTC, 

X 

// 

SPACE«BFSPACE, 

X 

// 

DCB>(RECFM>BF,LRECL>80,BLKSIZE:«I600) 

//♦ 

//SYSIR 

DD 

DSN«B(HULL,DISP>(OLD, DELETE) 

//♦ 
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//srsuTi 

//• 

//srsoT2 

//• 

//SYSTERN 

OD  UNIT*ISCRTC,SPACE«(CrL,(2,2)) 

00  UNir>tSCRrc,SPACE«(CYL,(2,2)) 

00  OUMNY 

//LKED  EXEC 

P6N«ILPR06,RE6ION>tLREG,riNE»01.TIHE, 

X 

// 

C0ND>((4,LT,F0RT),(8,LT,SAIL),(8,LT,PLANK)), 

X 

// 

PARH»'ILPAR«' 

//• 

//STSPRIRT 

00 

ILPt, 

X 

// 

DCB>(RECFN>FBA,LRECL*133,0LKSIZE>1330) 

//< 

//SYSLIB 

DO 

DSN>8LIBPREBLIB,DISP-SHR 

// 

00 

OSN>BFLIO,OISP>SHR 

//♦ 

//SYSUTI 

00 

UNITstSCRTC, SPACE- <1024,(210,20}) 

//♦ 

//SYSLROB 

DO 

DSN>II6DSET<8LNANE), 

X 

// 

UNIT>tSCRTC, 

X 

// 

OISP«(,PASS), 

X 

// 

SrACE-Z'^OSPACE 

//• 

//SYSLIN 

DO 

DSN-8SL0ADSET,DISP»(0LD,0ELETE) 

/ 

//GO  1 

EXEC 

P6H>«.LKED.SYSLH0D,TJHE-<SHTIHE,0),REGION-tHRE6, 

X 

// 

PARR-"  JHTIRE  ', 

X 

// 

C0ND«((4,LT,LKED),(4,LT,F0RT),(8,LT,SAIL),(8,LT, 

PLANK ) ) 

//♦ 

//FTf4Ff#l 

DO 

DSN-*. HULL. DATA, OISP>(OLD, KEEP) 

//♦ 

//FTI5FBI1 

00 

DSN>B«HULLI,DISP-(OLD,OELETE) 

//♦ 

//FT«6Fi#1 

DO 

SHP1, 

X 

// 

DC0«(RECFN«F0A,LRECL*t33,0LKSIZE>>33f) 

//♦ 

//FTIPFBBl 

00 

DSNANE-* . HULL . STATION ,OISP- (OLD, KEEP) 

//* 

//FTlfFMt 

DO 

UNIT-BSCRTC, 

X 

// 

SPACE«tUORKSP, 

X 

// 

OISP*(NEW, DELETE), 

X 

// 

DCB-*. HULL. DATA 

//* 

//FTIlFBfl 

00 

UNIT-BSCRTC, 

X 

// 

SPACE-8U0RKSP, 

X 

// 

DISP-(NEU, DELETE), 

X 

// 

OCBM. HULL. DATA 

//• 

//FTJ2F#il 

DO 

UNIT-ISCRTC, 

X 

// 

SPACE-SUORKSP, 

X 

// 

DISP*(NE«, DELETE), 

X 

// 

DCB>«. HULL. DATA 

//* 

//FT13F»»1 

DO 

UNIT-tSCRTC, 

X 

// 

SPACE-OUORKSP, 

X 
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// 

DISP«(NEU, DELETE), 

// 

DCB**. HULL. DATA 

//♦ 

//FTMFMt 

DD 

UNIT-tSCRTC, 

// 

SPACE«1U0RKSP, 

// 

DISP*(NEU, DELETE), 

// 

DCB«*. HULL. DATA 

//* 

//FTlSFill 

DD 

UNIT>SSCRTC, 

// 

SPACE*SUORKSP, 

// 

DISPXNEU, DELETE), 

// 

DCB««. HULL. DATA 

//* 

//FT21F001 

DD 

UNIT>tSCRTC, 

// 

SPACE«IUORKSP, 

// 

DISP>(NEU, DELETE), 

// 

DCB>*. HULL. DATA 

//* 

//FT22F»»1 

DD 

UNIT>tSCRTC,SEP«FT21FH1 , 

// 

SPACE-tUORKSP, 

// 

DISP>(NEU, DELETE), 

// 

DCB»*. HULL. DATA 

//♦ 

//FT23FMt 

DD 

UHIT»«SCRTC,SEP»(FT21FM1  ,FT22FM1 ) 

n 

SPACE>SUORKSP, 

// 

DISP>(NEU, DELETE), 

// 

DCB««. HULL. DATA 

//♦ 

//  PEND 

Figure  C-5.  (Continued) 
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//♦♦♦• 

//* 

//*  NAME 
//♦  PULL 
//♦ 

//*  FORMAT 

//•  //  EXEC  PULL,... (OPTIONAL  PARAMETERS  AS  REQUIRED) 

//«  //PULL. DATA  OD  DATA  SET  TO  BE  PLOTTED 
//♦  //PULL. INPUT  DO  ♦ 

//* 

//*  PULL  INPUT  CARDS 
//♦ 

//*  /• 

//*  //SAIL. INPUT  DD  * 

//* 

//«  SAIL  CHSSN6ES 

//* 

//•  /* 

//* 

//*  FUNCTION 

//*  THIS  PROCEDURE  EXECUTES  THE  PLOTTIN6  PROGRAM 
//«  (PULL)  FROM  THE  HULL  HYDRO-CODE  SYSTEM 
//♦ 


//•  • ♦ 

//PULL 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 


PROC  LIB>HULLIB, 

LIBPRE-'SAIL.S 

LIBU>, 

LIBVOL>, 

CHNBLK-3521, 

CHNLRL«3517, 

CREe>lfBK, 

FILO>, 

FLIBs'SYSI.FORTLIB', 

FPARM-NAP, 

FPROe«IFEAAB, 

FRE6>5t2K, 

FP1a'SYSOUT»A/ 

FSPACE»'(CYL,(1»,5),RLSE)', 

FTIMEa'd,!)", 

GENO='(B)', 

B0SPACE«MCYL,(2f,5,1))% 

LABO>, 

LNAHE«PULL, 

LPARM«'MAP', 

LPR06«IEUL, 

LRE6«2S«K, 

LPI.'SYSOUT-A," 

LTIME»M#,A5)', 

PLRE6«3I2K, 

PLTIME-3, 


PULLSP«'(CYL,(1f,5),RLSE)',  X 
PLPI-'SYSOUT-A/  X 
OLO>HULL,  X 
OLODCB»,  X 
OLDDS-SHR,  X 


Figure  C-6.  Procedure  to  Run  PULL 
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X'X  XXXXXXXXXXXXXXXXXXXXXXXX 


// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

//* 

//POLL  EXEC 
//SYSPRIMT  DO 
//SYSIN  OD 
//SYSUT1  DD 
//SYSUT2  DB 
// 

// 

// 

// 

//♦ 

//PLANK  EXEC 
//♦ 

//STEPLIB  BB 

// 

// 

// 

//♦ 

//FTf4FI«1  BB 

//♦ 

//FTB5FBBI  BB 
//* 

//FT«6FB«1  BB 
// 

//♦ 

//FT07F«ft  BB 
// 

// 

// 

// 


0LBPRE»'’SA1L.^ 

OLBU>, 

OLBVOL>, 

PPROG>PLANK, 

PP1«'8YS0UT«A/ 

PRCN>5H«, 

PRCL-3441, 

PRE6>tlfK, 

PTIHE-'d,#)', 

FTINE»M1,«)', 

PSI.'SYSOUTsA/ 

PS2»'SYS00T»A,'' 

SAILBLK«8«B, 

SAILR«8f, 

SCRTC»SYSBA, 

SPR06-SA1L, 

SRE6>I7SK, 

S71HE»M2,I)S 

U0RKSP>MCYL,(S,5))' 


P6N*1EB6ENER,RE6I0N>SCRE6 

BUNNY 

DUHHY 

DDNANE> INPUT 
BSN»(8PULLI, 

OISP>(NEU,PASS), 

UNIT>SSCRTC, 

SPACEs(TRK,(5,S),RLSE), 

OCB*(RECFH-FB,LRECLs80,BLKSIZE>1 


P6N:iBPPR06,TIHE»SPTIHE,RE6I0N=2PRE6 

BSN>SLIBPRE>LIB, 

UN1T«BLIBU, 

V0L>8LIBV0L, 

BISP>SHR 

BSNANE>*. PULL. BATA, BISP*(OLD, KEEP) 
BSN>BtPULLI ,BISP«( OLB ,PASS) 

*PP1, 

BCB»(RECFH>FBA,LRECL«133,BLKS1ZE«1330> 

BSN«SIALTI, 

OISP>(NEU,PASS), 

UNIT>tSCRTC, 

SPACE><TRK,<9,S),RLSE), 

BCB>(RECFN»FB,LRECL*80,BLKSIZE«1600) 


//SAIL  EXEC  P6N>SSPR0GJINE>tSTINE,RE6IDN=SSREG, 
//  C0NBs(8,LT, PLANK) 

//♦ 

//STEPLIB  OB  OSN>SLIBPRESLIB, 

//  UNIT>SLIBU, 

Figure  C-6.  (Continued) 
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// 

V0L>8LIBV0L, 

X 

// 

OISP>SHR 

//♦ 

//FTilFMI 

DD 

DUHNY 

//♦ 

//FT«2F«01 

DD 

DSN>SOLDPREtOLDSGEND, 

X 

// 

UNIT«tOLOU, 

X 

// 

LABEL»<SFILO,SLABO,,IN), 

X 

// 

DISP-tOLODS, 

X 

// 

VOL>AOLDVOL, 

X 

// 

DCB^SOLDDCD 

//♦ 

//FT«3F»#1 

DD 

UMIT»iSCRTC, 

X 

// 

DISP>(NEU, DELETE), 

X 

// 

DCB*(RECFn»VBS,LRECL-SCHNLRL,BLKSIZE»SCHNBLK), 

X 

// 

SPACE»(TRK,(2«,20)) 

//♦ 

//FTI4Flf1 

DD 

tPS2, 

X 

// 

DCB>(RECFH=FBA,LRECL>t33,BLKSIZEs1330) 

//♦ 

//FTMFM1 

DD 

DDNANE>INPUT 

//• 

//FT04F*«1 

DD 

3PS1, 

X 

// 

DCB*(RECFM>FBA,LRECL»133,DLKSIZE-1330) 

//* 

//FT08F001 

DO 

DSN>SBPULL, 

X 

// 

DISP>(NEU,PASS), 

X 

// 

UNIT>SSCRTC, 

X 

// 

SPACEaBPULLSP, 

X 

// 

DCBs<RECFH»FB,LRECL-SSAILR,BLKSIZE=tSAILBLK) 

//♦ 

//FT«?FM1 

DO 

DSN»S«ALTI,DISP»<OLO, DELETE) 

/■/* 

//FT1iF001 

DD 

UNIT=*SCRTC, 

X 

// 

DISP>(NEU, DELETE), 

X 

// 

SPACE»<SPRCL,<SPRCN)) 

/!* 

//FTIIFill 

DD 

DUHHY 

//* 

//FT12F00I 

DD 

DUMMY 

/ /»  * 

//FORT 

EXEC 

PGM««FPROG,REG10N»»FREG,PARH='JFPARH'',TINE»«FTIME, 

X 

// 

C0N0>((8,LT,PLANK),(8,LT,SA1L)) 

/!* 

//SYSPRIRT 

DD 

BFP1, 

X 

// 

DCB*(RECFH«FBA,LRECL>133,BLKSIZE»1330) 

//♦ 

//SYSLIN 

DD 

DSN>tlLOADSET, 

X 

// 

DISP><HOD,PASS), 

X 

// 

UNIT>tSCRTC, 

X 

// 

SPACE>IFSPACE, 

X 

// 

DCB-<RECFH«BF,LRECL>80,BLKSIZE«1&00) 

ft* 

//SYSIN 

DD 

DSN«AtPULL ,DISP« (OLD , DELETE) 

//♦ 

Figure  C-6.  (Continued) 
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//SYSUT1 

DB 

UNIT»BSCRTC,SPACE>(CYL,(2,2)) 

//♦ 

//SYSUT2 

DO 

UNIT«BSCRTC,SPACE=(CYL,(2,2)) 

//♦ 

//SYSTERH 

00 

DUNHY 

//LKED  EXEC 

P6H«SLPR06,RE6I0N«3LRE6,TIHE»tLTINE, 

// 

C0NDs((4,LT,F0RT),(8,LT,SAIL),(8,LT,PLANK)), 

// 

PARH«''JLPARH' 

//• 

//SYSPRIMT 

00 

SLPt, 

// 

0CB-(RECFH-FBA,LRECL»133,BLKSIZE»1338) 

//♦ 

//SYSLIB 

DO 

OSN>SLIBPRESLIB,DISP»SHR 

// 

DO 

DSN«8FLIB,0ISP»SHR 

//♦ 

//SYSUT1 

DO 

UNI TsRSCRTC, SPACE- ( 1024,(200,20)) 

//♦ 

//SYSLROB 

00 

OSN'SXGOSETdLNANE), 

// 

UNIT-SSCRTC, 

// 

DISP-(,PASS), 

// 

SPACE>SGOSPACE 

//♦ 

//SYSLIN 

DO 

DSN-8SL0ADSET, OISP=( OLD, DELETE ) 

//GO  EXEC 

PGH»*.LKED.SYSLHOD,TINE=(2PLTIHE,0),REGION>tPLREG, 

// 

PARM«'  0PLT1HE  ', 

// 

C0ND*((4,LT,LKED),(4,LT,F0RT),(8,LT,SAIL),(8,LT,PLANK)) 

//♦ 

//FTf4F0«t 

DO 

DSN»*. PULL. DATA, DISP>(OLO, KEEP) 

//* 

//FTiSFift 

DO 

DSN*3iPULL I ,DISP=  < OLD , DELETE) 

//• 

//FTIAFMI 

DD 

BPLP1 , 

// 

DCB>(RECFH>FBA,LRECL>t33,BLKSIZE=1330) 

//* 

//FT22F#»1 

00 

UNIT’^BSCRTC, 

// 

SPACE-SUORKSP, 

// 

DISP-(NEU, DELETE), 

// 

DCB>*. PULL. DATA 

//* 

//FT4iFM1 

00 

UNIT»*SCRTC, 

// 

SPACE>3U0RKSP, 

// 

OISP>(NEU, DELETE), 

// 

DCB«*. PULL. DATA 

//♦ 

//FT48Fff1 

00 

UNIT>8SCRTC, 

// 

SPACE«tUORKSP, 

// 

OISP>(NEU, DELETE), 

// 

DCB>«. PULL. DATA 

//• 

//FT5#FM1 

00 

UNIT-tSCRTC, 

// 

SPACE>>UORKSP, 

// 

D1SP«(NEU,DELETE), 

// 

DCB«*. PULL. DATA 
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